AUG 198 1 
COPYRIGH 


MADE IN USA 



























































tenuet 5 qaesa-- ... 
' (aaah a ae é 
—— ean } : =] . 
Tene , ae : thE 
E « + Th q = iy i : i 
ae pene: ee wus." e Gem : a if 
ss mete pata. = linen TP me | ee 8 2 aa = 4 4 : } 
posi =e . aT a gt.) seme “i Se _— Mt Gage nnm 
x“ a . | Te = . 4 ‘H T- Ditebe: 1 oe oRew _ SPELER 
te —~ m | - te ps. : 
. q ae sf ? | ~~ 
: o¥ er ‘ ‘ 
he “4 * = < ses ; e 5 
n> : oes will ta 
ie +} . = ti thy 4a 
is ~ : : > acumen oo mi tr 
° ~ - = pare pane eT Sue sa 
2 . ger , r. = . yh teIA he cer > Le ~ BB YW iw 
—— rw = as. ~~ ~ years so - a i 
° a. : = 5 'e ute EE a ‘ ae oD 
| - a t>- ge ad : ? - * _ oe 
=) a | a : = 7% to» Te: | Se ‘OE > oe 12° 7a 
y ; 4 ~ . rere ' > = an Po . ° uy Rar * - f z ny iy : 
.7 - > . oe lee aa inne po ee aT + 
: : Wit ie ee me" iP Be: a= -t T 
5 “ % . 2 TT ‘i’ Fo. ite 1% : = ‘ sit 7 ree oe re oe ee ee 
: > Mam or —- = =o " oF \ i ; r i + 2 
© 5 — 2~- ~ = ge--°Ts " os Ga ' : 1g 
; aaa . at ~* er Ve ae 5 if 4 ‘ 
— . “4 . . Fae | - . 
mee eres igs Te be BY ns ig - 
; if e- eee: . piaree if rn { ih. x 
bi Bae Bae <1 Gee i; : 
, | is = : a Taio 4 , 
L :- Gee ee= -{ a ; : : 
: — = 
P - _ — - ra Za 4 
4 were = 1f ¥ t “q - 
bi - rey - = ‘i | i Be \ “ . 
| etn <. "= ee _*... ‘ ‘es a: Ee 4 
= en? ae . mi Pe even Tig . ann Ls FS 4 at —= | 
3 - ¥. soar <s now mw Bi if os GF “ LL on - 
— = — . : ~58" gs a. L& ~ < . . y ~ Te 
. $ 5 ; g > oe ) w= > Cheetie. bE. oi. oe be ee ce Ep P 
- é ane fie ie fl if bng==- ke Bae To OU ER Ga: 
= - eer. 28 a. ane. : 18) 88) 8) 
; . 7 o , 
~ = =~ “~~~ ré a : - ~ 7 
F, - Ri ¢ ' Ae Ie 
4 a . fA TRPBS BB yak 
* : prec. = , ; an > : . rs 
vi ve enna P : iene , i 
| —— — ” BS ete MQAaNT 22>" i 343 “ % 
— ns : (pare ee tee 32 = seep 0a: ; 4 at 
> bs nee on —— “ tae is. ial pra im oe ff, i | (3 : he a — 
is 72 se tT .. jee < a ing Le oe. | eae E a L ' i : B 
. . iit. ti © be=-- | & Se aes 9 es 
ag ae - ie ier |S cua : 
Wes 7 he iw : ee : 
‘ 4 > ow ; — a S ls x : 
oo | a i toe - ; is 0 Pe 3 
"* .- & Gin - . 33 
i a a5 = “ae » i ee 
= oirts — ym it :. Pan ; . : 3 4 
ti -____ 50a Bue: so | Bona 5 te sa.f 7” 
ee - P x ae ip. rand eC ONT - +} + te : — 4 . & 
; — rr in p22 oe TIT rem = ean . 7 _ ~ . - es 1 ; is F 
* To 7 . Et * , ; I ie oa : 
——— ou ' oe oon th Bie F ber te Te ye in if =- oem : 
. - = | rf _ a : i i = ic iat. ) : Rhee, f [eS 3% se @! 
q ad Te ; ld i & Be S ; = 
ie » oe i? ere 
| “' ; eae s% 1: . 7" obra, ee. 
: ~ee ae ? | . - . . 
“ +} ; tee t 7 - a oo te ae 
' ry ins - i be } 7 " if ae 
ae SIRT ae Se es Aeeese 
- - = a0 mem sea — 7 — 
a PPS es 2 ays ee - p sr : fi ss 4 r " a 4 3 mis . 2 = 
. s tore or orprmers Sq F i : ce Bue. '° iosurnen= 
) ‘ ‘au i Lk » ie. 2 ‘ & at PPtia Gs 
hea ge s we ; : - 3 eye 
: j : Pan x r 
: Pie: { eae. ¥ : ae 
| MR a aie uy * 
P st : . PERE EE 
‘ : SR GIT? . “aici 48 i | ana} te 
‘| . 2) = ia Dk 
" - d ry . ; » ’ ia : SHWE RIE 
a : i. oe . see: 
q 3 :. 
eT ee nee ee. 0lti‘“(‘(i‘(C Ce x e 1 ¢ | ', . . 
= a Wis. |! ' — al 
—= Ba ’ 
> ’ hi - 
Weta Ne RS i can - 
es , 7». = - . i ~ 
Ve 4 
' AN ; ’ F - ; 
/ aon = } { er: mil 
kit a S t : } 
s " a ay a3 ; : 7 e | 
B ce - §es-. it . a 
: : : : ea. j 
if ae, en es 
on o ; ha 5™ | 
faba , ; i 2g i Pa ~ 
aoe Q e eae : 
_ : Gai spite i iy si yy isi ' Tibi . 
— — tae = Te sae. aa J a> ~ vege P~- 4 k 5.4 4 - 4 3 
ale ame it...i i te a co ene _ + ; ag iPSge 4 ; sa é ha 9 | . Tit . a 
we Tk ¥ ey . " 5 } a a a > s. 34> ” i ~ fae | me < ii i ‘ . & 
teres eit i ' t-ae uae .} ; ub 2 i eal r &; * OR gee os wir 
ie BO he a : Frage ' einer ' y bd ~ wt r ° “ 
+ — cone i te ss bs Tee ~~ - we 
i : onreak 2 ie Sag . f ie : Ae ; 4 
rape ~ i a PAT _ yXo nz ; o pr: Pa ox 
roadie HE by ——* x ri ag pe » 5 PELE SD TL 
: ; —— x ~~ -; rT a ie 7 me he ~ponpe tn tes 
— = res sn ; ya 7” } |* | oe Hi! 7 : ° ; 
in ; a EALERTS li be me a=- t= i ij 
_ ~ _ po .- - .~ . . thar . g - = : 
saree ALR Bir i. ae = ean tt i ' i :2 O8 [an ‘ 
7 tt - a t re? Ses st. ae : a a= i= hae ' : “<i 4 “we —— “ » - 2 : 
ae i : 1 " | re. if i? ks a Bee Rt oe '--. 0 a4---- J 
; Ree i: oe5 || Saat= ic sa--. 2 ig 
= Be TE - te B —— x: 
ee> it ks 3 
— omnes x Y i} : 7) e 
‘ r - _ ia ; 
_ _—_ - " wee PY oa . ‘4 ww a9 
aie onan te) oe =. t- wns 206 ne 
ry tae : | ated abegtaemete ~y - F = 7 Peg ay - , - 
. ns ro : te ae tf iF 
: aus <ec . - eS - -  & = | ' 
- mice - - 1 or tae. : A i 
— + tim ee. 5 —— “ 
3 =~ jgpee |e : Las 
an) ee se i mae 
_ > 
» . ~ wee a 
: bad zTwewr..- 








ee eee 





B 1 
CKKTABO 11/44 MEM MGMT PRT A MACRO M1113 23~-APR-81 13:32 PAGE 2 SEQUENCE 
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-REM a 


eipunatanees 

PRODUCT CODE:  AC-F6098-MC 

PRODUCT NAME:  CKKTABO 11/44 MEM MGMT PRT A 
DATE: APRIL, 1981 

MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHOR: DAN P. MILLEVILLE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT fi Al? 


28 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATI 

29 NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 

" DOCUMENT . 

32 THE SOFTWARE DESCRIBED IN THIS ae oe IS FURNISHED TO THE 

33 PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM 
34 AND CAN BE COPIED (WITH INCLUSION OF DIGITAL*S COPYRIGHT NOTICE) 
35 ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED 
% IN WRITING BY DIGITAL. 

38 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 

39 FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 

re THAT IS NOT SUPPLIED BY DIGITAL. 

42 COPYRIGHT (C) 1979, 1981 BY DIGITAL EQUIPMENT CORPORATION 
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43 

44 PROGRAM HISTORY 

3 wow enn wow wow ww ewe -<—<— 

tA DATE REVISION REASON FOR REVISION 

49 OCTOBER, 1979 A FIRST RELEASE 

50 APRIL, 1981 B CORRECT TRACE TRAP COMMENTS, USE NEW SYSMAC 

51 CONTAINING CHECK FOR BIT O OF CPU ERROR REGIS- 


$2 TER AND “Q CHECK IN INPUT ROUTINE. 
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1.0 PROGRAM INFORMATION 


1.1 ABSTRACT 


THIS PROGRAM WAS DESIGNED USING A _ ‘BOTTOM UP'* APPROACH 
STARTING WITH THE SMALLEST SEGMENT OF MEMORY MANAGMENT 
LOGIC POSSIBLE AND BUILDING TO COVER ALL OF THE LOGIC. 
THE DIAGNOSTIC ian PROVIDE ENOUGH INFORMATION SUCH THAT 
BY DEDUCTION, THE FAILURE CAN BE ISOLATED TO A SMALL 
SEGMENT OF THE MEMORY MANAGEMENT LOGIC. 


PART A BEGINS BY TESTING SOME OF THE INTERNAL oY A 

AND ADDRESS PATHS AND ADDRESS DETECTION LOGIC, 

WORKS OUTWARD THROUGH THE MEMORY MANAGEMENT REGISTERS. 

AFTER THE REGISTERS ARE FOUND TO BE USEABLE, RELOCATION 
(CONSTRUCTION OF PHYSICAL ADDRESSES FROM A VIRTUAL ADDRESS 
AND THE ASSOCIATED PAR/PDR INFORMATION) IS TESTED. PART B 
BEGINS BY TESTING THE ABORT AND STATUS SEGMENTS OF LOGIC. 
PART B THEN CHECKS THE SPECIAL ABORT SEQUENCES, THE MFPI/MTPI 
INSTRUCTIONS AND THE CSM INSTRUCTION. 


1.2 REQUIREMENTS 
A PDP 11/44 PROCESSOR WITH A MINIMUM OF 16K OF MEMORY 
AND A CONSOLE TERMINAL ARE REQUIRED TO RUN THE PROGRAM 
UNLESS THE PROGRAM IS RUNNING UNDER APT OR ACT IN WHICH 
CASE THE CONSOLE TERMINAL IS NOT NECESSARY. 


tee RELATED DOCUMENTS AND STANDARDS 


1. ACT11/XXDP PROGRAMMING SPECIFICATION .- 

ex STANDARD APT SYSTEM TO A PDP11 DIAGNOSTIC INTERFACE 
3. DIAGNOSITC ENGINEERING STANDARDS AND CONVENTIONS 

4. PDP11 MAINDEC SYSMAC PACKAGE 

De XXDP USER'S MANUAL 


1.4 PRELIMINARY PROGRAMS 


BEFORE THIS MEMORY MANAGEMENT DIAGNOSITC IS RUN, THE 
FOLLOWING DIAGNOSTICS SHOULD BE RUN: 


CKKAABO 1/44 CPU/EIS 
CKKABCO 11/44 TRAPS 


ALSO, THE MAIN MEMORY DIAGNOSTIC (CZMSD) SHOULD BE RUN TO SCAN 
AT LEAST THE FIRST 16K TO SEE THAT A PROGRAM CAN BE EXECUTED. 


SEQUENCE 


4 





ee — = — -— - 
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2.0 OPERAT ING INSTRUCT IONS 


2.1 LOADING PROCEDURES 


THE PROGRAM IS SUPPLIED ON THE DIAGNOSTIC LOAD MEDIA 
REFER TO THE XXDP USER'S MANUAL FOR FURTHER INFORMATION. 
FOR USE WITH ACT pha APT, REFER TO THEIR RESPECTIVE 
DOCUMENTS. THE PROGRAM CAN ALSO BE DIRECTLY LOADED 
USING THE ABSOLUTE LOADER AND THE BINARY PAPER TAPE. 


2.2 STARTING PROCEDURES 


THE PROGRAM IS STARTED BY LOADING ADDRESS 200 AND 
STARTING. THE SWITCH REGISTER SHOULD BE SET ACCORDING TO 
SECTION 2.3 BEFORE THE PROGRAM IS STARTED. HOWEVER, IF 

SIRED, THE ePROGRAM WILL USE THE SOFTWARE SWITCH REGISTER 
AT LOCATION 176 (LOCATION 174 WILL BE USED AS THE SOFTWARE 
DISPLAY REGISTER). IN THAT CASE, THE PROGRAM WILL ASK FOR 
THE INITIAL SWITCH REGISTER VALUE BY TYPING a tae nr, 
NEW= AFTER TYPING THE NAME 


OF THE PROGRAM (Xx 
THE OCTAL CONTENTS OF LOCATION 176). (SEE SECTION. 3 4) 
AN BE MADE TO USE THE SOFTWARE SWITCH 


ALSO THE PROGRAM C 
REG. EVEN IF THE CONSOLE SWITCH REG. IS PRESENT BY LOADING 
a tae THE CONSOLE SWITCH REG. BEFORE STARTING 


PANAMA D ANAS SSSR ARDS 


SUKALARISSONRALPANLSSSLRGRGALES 
=] 
m 
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2.2 CONTROL SWITCH SETTINGS 


SWITCH OCTAL VALUE USE 
SW15 100000 HALT ON ERROR 
. THIS SWITCH WHEN SET WILL HALT 

THE PROCESSOR WHEN AN ERROR IS 
DETECTED Ai THE ERROR MESSAGE 
HAS BEEN TYPED. PRESSING CONTINUE 
WILL RESUME TESTING (SEE SECTION 
3.1 ABOUT LOADING THE SWITCH REG 
BEF ORE CONTINUING) . 


SW14 040000 LOOP ON TEST 
THIS SWITCH WHEN SET WILL 
C THE PROGRAM TO LOOP ON 


AU 
THE CURRENT SUBTEST. 


SW13 020000 INHIBIT ERROR TYPEOUTS 
THIS SWITCH WHEN SET WiLL 
INHIBIT THE TYPING OF ERROR 
MESSAGES. 


SW12 010000 INHIBIT TRACE TRAP 
THIS SWITCH WHEN SET WiLL 
INHIBIT T-BIT TRAPPING WHICH 
NORMALLY TAKES PLACE DURING 
EVERY ODD PASS STARTING 
WITH THE THIRD PASS. 


nna pn aaa 
SSLESRAVLESEGRALATSSISIVSGRAVASF 


CAUSE L 
TEST WHOSE TEST NUMBER IS SET 
IN BITS 7-0 OF THE SWITCH REG. 


200 

201 Sw10 002000 BELL ON ERROR 

202 THIS SWITCH WHEN SET WILL RING 

203 THE CONSOLE TERMINAL BELL WHEN 
Soe AN ERROR HAS BEEN DETECTED. 

206 SW9 001000 LOOP ON ERROR 

207 THIS SWITCH WHEN SET WILL 

208 CAUSE THE PROGRAM TO LOOP ON THE 
209 FIRST FAILURE WHICH IS ENCOUNTERED 
$19 EVEN IF THE FAILURE IS INTERMITTANT 
212 SW8 000400 LOOP ON TEST IN SWR<7:0> 

213 THIS SWITCH WHEN SET WILL 

Sie THE PROGRAM TO LOOP ON THE 
216 


2 —H «ee 
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2.4 


re 


LOADING THE SWITCH REGISTER 


THE CONSOLE SWITCH gi + PROVIDED IS LOADED DIRECTLY FROM 
THE CONSOLE BY TYPING A CONT oer ut and? THEN WHEN THE CONSOLE 
PROMPT IS RECIEVED, TYPE ‘D Sw » WHERE ‘"XXXXXX'" IS THE 
INTENDED VALUE OF THE SWITCH REGISTER.” THE VALUE OF THE 
CONSOLE SWITCH REG. CAN BE CHANGED ANY TIME WHETHER THE PROGRAM 
IS RUNNING OR NOT. 


TO LOAD THE SOFTWARE SWITCH REG. WHILE THE PROGRAM IS 
RUNNING, A CONTROL G (*G) SHOULD BE TYPED ON THE CONSOLE 
TERMINAL. * THE "“SCOPE'' AND ‘ERROR’ ROUTINES CHECK TO SEE 
IF A “G HAS BEEN TYPED. Sa THE ORIGINAL VALUE OF THE SOFTWARE 
SWTICH REG. WILL BE REQUESTED AS MENTIONED IN SECTION 2.2. 


IN RESPONSE TO A “*G OR AT THE BEGINNING OF THE PROGRAM, THE 
PROGRAM WILL TYPE: 


SWR = XXXXXX NEW = 
WHERE *'XXXXXX°" IS THE CURRENT Bis CONTENTS OF LOC. 176. 
THE OPERATOR MAY THEN TYPE ANY ONE OF THE FOLLOWING: 
XXXXXX<CR> ONE TO SIX OCTAL DIGITS FOLLOWED BY A 
kee L OAD 
<CR> JUST A <CR>, LEAVES THE SWITCH REG. 
XXX*U A CONTROL-U (“U) WILL CAUSE ALL OF THE ‘ 
BE IGNORED 


DIGITS TYPED SO FAR TO ° 
“~~ WILL CAUSE THE PROGRAM TO TYPE THE PRESENT 


T 
<ILL.CHAR> ANY CHARACTER TYPED WHICH IS NOT ANY OF THE 
ABOVE OR PR 


4 HAD BEEN TYPED. 


NOTE: RECOGNITION OF A “G MAY BE HAMPERED BY 
----- EXECUTION OF A COUPLE ‘RESET’’ INSTRUCTIONS 
WITHIN THE PROGRAM. 


EXECUTION TIMES 


THE RUN TIME FOR A SINGLE PASS WITH TRACE TRAPPING 
ENABLED IS APPROXIMATELY 8 SECONDS WITH CACHE. 


ee 
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3.0 ERROR INF ORMAT ION 


3.1 ERROR REPORTING PROCEDURES 


oe wew wee eT Bw we SS STS SPS Oe Se 2 Se eS 


IF 
ERROR 


cee eee eee Ce 


SEQUENCE 


AN ERROR IS DETECTED, THE PROGRAM WILL TRAP TO THE 
ROUTINE ($ERROR). THE VALUE OF 


HANDL ING BITS 
15,13,10, AND 9 IN THE SWITCH REGISTER ARE — 


IN REPORTING AN ERROR (SEE SECTION 2.3) 
ERROR 


INFORMATION WILL BE TYPED UNLESS SW13 = 
IF SW15 = 1, THE PROCESSOR WILL HALT AFTER THE ERROR IS 


ARE TO BE CHANGED, A “ 
“CONTINUE'' TO RESUME TESTING. 


IF SW9 = 1 (LOOP 


ON ERROR), THE 
i idk. oy LOCATION ‘SL 


REPORTED. IF THE CONTENTS OF 
SHOUL 


THE SOFTWARE SWITCH REGISTER 


D BE TYPED BEFORE PRESSING 


PROGRAM WILL GO TO THE 
PERR''. AFTER REPORTING 


IS SET BY EACH ‘'SCOPE'’ CALL AND IS 


THE ERROR 
SET DIRECTLY DURING SOME SUBTESTS TO PROVIDE THE SMALLEST 
LOOP L S THE PROGRAM 


FOR LOOPING ON ERROR. IF 
RETURN TO THE INSTRUCTION FOLLOWING THE ERROR CALL. 
(SEE SECTION 5.3 FOR MORE ON ‘LOOP 


be INTERPRETING ERROR REPORTS 





WILL 
ON ERROR'’). 


EVERY ERROR REPORT TYPES THE NUMBER OF THE TEST IN WHICH 
THE ERROR TOOK PLACE (TESTNO) or THE L Sy tie. OF THE 


ERROR CALL (ERRORPC). THESE T 
7 the’ i THE CODE THAT THE ERROR OCC 


TEST F IN THE PROGRAM LISTING 
ALSO PROVIDE THE OPERATOR WITH INFORMATION ON THE LOGIC 


WILL 
AND FUNCTIONS BEING TESTED. 


EVERY ERROR REPORT ALSO TYPES AN ERROR MESSAGE 
NG A VERBAL DESCRIPTION OF THE ERROR THAT HAS 


GIVI 
BEEN DETECTED. 


es USING THE COMMENTS AND TEST age ght ee IN 


RMINE WHAT 


FUNCTION OR 
OR CAN THEN REFER 


LOGIC ED, OPERAT 
TO THE ENGINEERING DRAWINGS TO ISOLATE THE PROBABLE 


CAUSE FOR THE FAILURE. 
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3.3 


3.4 


SAMPLE ERROR REPORT 


BELOW IS AN EXAMPLE OF AN ERROR WHICH COULD HAVE 
OCCURRED DURING EXECUTION OF THE PROGRAM: 


MEM. MGMT. REG. BITS wal 18 ep 

REGISTR WROTE READ BINARY) 

ADDRESS (OCTAL) (OCTAL) 5432109876543210 TESTNO ERRORPC 
177572 040000 060000 0110000000000000 000012 022060 


WE SEE THAT THE ERROR OCCURRED IN TEST 12 AT LOCATION 
022060. THE ‘REGISTER ADDRESS'’ TELLS US THAT WE WERE 
TESTING MEMORY MANAGEMENT'S. STATUS. RGISTER 10 (SRO). 

IN THE LISTING, THE TEST DESCRIPTION SAYS THAT THE 

ERROR BITS (BITS <15:13>) ) OF SRO WERE BEING SET AND 
CLEARED INDIVIDUALLY. THE ERROR REPORT SAYS WE TRIED 

TO SET BIT 14 BY WRITING ‘040000'' TO SRO BUT WHEN 

READ IT BACK WE READ ‘060000"'. IT APPEARS THAT BIT 13 IS 
STUCK AT '1'’ OR IT IS GETTING SET WHEN BIT 14 IS SET 

T ERROR REPORTS BEFORE AND AFTER THIS ONE COULD 
TELL US WHICH IS THE CASE. 


POWER MONITOR BIT ERRORS 


THE NEW SERROR AND $SCOPE ROUTINES USED CONTAIN A CHECK OF BIT 0 (POWER 
MONITOR BIT) OF THE CPU ERROR REGISTER. IF THE BIT SHOULD BECOME SET, 
AN THE SSCOPE ROUTINE HE NUMBE 


E CALL WILL BE CALLED FROM 
IN THE ERROR PRINTOUT WILL BE THE TEST *BEFORE* THE SCOPE CALL THE SET 
BIT WAS FOUND. IF THE BIT BECOMES SET AFTER THE SCOPE AND DURING THE 
D BE CALLED FOR WHATEVER TWO 


AN ERROR SHOUL 
WILL BE CALLED. THE FIRST ERROR WILL BE THE POWER MONITOR BIT ERROR, 
AND THE SECOND WILL BE THE ERROR ORIGINALLY CALLED. THE ERROR WAS 
CALLED, LOOP-ON-ERROR IS DISABLED FOR THIS ERROR ONLY. IF THIS ERROR 
SHOULD APPEAR, IT IS SUGGESTED THAT THE PROBLEM CAUSING THE BIT TO BE 
SET BE CORRECTED BEFORE USING THE RESULTS OF THIS DIAGNOSTIC AS 
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4.0 


4.1 


4.2 


4.3 


MISCELLANEOUS INF ORMAT ION 


THE PROGRAM IS FILLY ACT AND APT COMPATABLE 
AND IS SUPPORTED UNDER THE XXDP PACKAGE. 


END~OF-PASS MESSAGE 


AT THE END OF EACH PASS OF THE PROGRAM THE PASS NUMBER 
IS PRINTED. FOR EXAMPLE: 


END OF PASS #2 


THAT WOULD INDICATE THAT PASS TWO WAS JUST COMPLETED 
AND NO ERRORS WERE DETECTED DURING THAT PASS. 


TOTAL NUMBER OF ERRORS SINCE THE LAST END-OF-PASS ARE 
we Fart ie ed IF THERE ARE ANY IN THE END-OF-PASS MESSAGE 


END OF PASS #2 TOTAL ERRORS SINCE LAST REPORT 2 
THAT WOULD INDICATE THAT PASS TWO WAS JUST COMPLETED 
WITH TWO ERRORS DETECTED DURING THAT PASS. BOTH THE 
PASS NUMBER AND NUMBER OF ERRORS ARE DECIMAL NUMBERS. 


T-BIT TRAPPING 





THE ‘'T-BIT’* (BIT 4) IN THE PROCESSOR STATUS WORD IS SET 

BY AN 'RTI’’ IN THE END-OF-PASS ROUTINE FOR_EVERY OTHER PASS 
BEGINNING WITH THE THIRD PASS (PASSES 3,5,7, “* T-BIT 
TRAPPING CAN BE INHIBITED BY SETTING BIT 12 = 1 IN THE SWITCH 
REGISTER (SEE SECTION 2.4). 
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4.4 


4.5 


70101000101000001 


POWER FAILURE HANDL ING 


IF A POWER FAIL OCCURS (FOLLOWED BY A POWER UP). THE 
MESSAGE ‘POWER FAILURE-RESTARTING'’ IS TYPED OUT AND 
THE PROGRAM WILL RESTART lad AT ‘'START:'' (THE 
VERY BEGINNING OF THE PROGRAM. IF THE SOFTWARE 

a IS BEING USED, ITS CONTENTS WILL BE 


PHYSICAL BUS ADDRESS CONSTRUCTION 


BELOW IS A SIMPLIFIED DIAGRAM OF HOW THE MEMORY 
MANAGEMENT LOGIC CONSTRUCTS A apd bee BUS ADDRESS 
USING THE VIRTUAL ADDRESS AND THE PAGE ADDRESS REGISTER. 
THE PAGE DESCRIPTOR REGISTER SELECTED WILL CONTAIN THE 
PAGE EXPANSION, LENGTH, AND ACCESS INFORMATION. 


12 11 10 09 08 07 06 05 04 03 02 01 00 


in 6 Se he Se ee ee oe 


(ADDED TO) 
15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 











I 
I 


V 
21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 


(Boe 2 ede a oe eee 2 Oo ee oe oe a ee oe oe oe 


es ne ee be et he et 








*= VBA BITS <15:135> SELECT THE APPROPRIATE PAR AND PDR 
x*= PSW MODE BITS <15:14> SELECTS THE USER (=11), SUPERVISOR 
(=01) OR KERNEL (=00) SET OF PAR'S/PDR'S 


PAR®* 


17 
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5.0 


5.1 


5.2 


PROGRAM DESCRIPTION 


SUBROUTINES USED BY THIS PROGRAM 











FOLLOWING IS A LIST OF THE SUBROUTINES AND HANDLERS USED 
BY THIS PROGRAM THAT ARE NOT PROVIDED BY THE °'SYSMAC 
PACKAGE’’. DETAILS OF THE SUBROUTINES UNIQUE TO THIS 
PROGRAM MAY BE FOUND IN THE PROGRAM LISTING. REFER TO 
hI aa " DOCUMENT AND PROGRAM LISTING FOR THE OTHER 


1. TURN OFF T-BIT AND SAVE CURRENT PSW 
. TURN ON T-BIT AND RESTORE PREVIOUS PSW 
3. SET ALL WRITEABLE BITS IN ALL PAR/PDR'S 
4. CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS 


NOTE ALSO THAT THE MACRO LIBRARY USED TO ASSEMBLE THIS PROGRAM 


HAS OTHER SPECIAL ROUTINES APPENDED TO THE SYSMAC MACRO PACKAGE; 
a aed MUST BE USED TO ASSEMBLE EITHER PART A OR PART B 


PROGRAM LISTING 





FOLLOWING THIS SECTION OF DOCUMENTATION IS THE ACTUAL 
PROGRAM LISTING COMPLETE WITH SUBTEST DESCRIPTIONS AND 
“CODING COMMENTS"’. 
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USING THE PROGRAM TO DIAGNOSE A FAULT 





WHEN AN ERROR OCCURS, ONE OF THE THINGS THAT'S IMPORTANT 
TO NOTE-1S WHAT PASS THE ERROR OCCURRED ON. IF THE PASS 
NUMBER IS ODD AND IS THREE OR GREATER, THE ERROR MIGHT BE 
T-BIT SENSITIVE. TRY RUNNING THE PROGRAM AGAIN WITH BIT 
12 OF THE SWITCH REG. EQUAL TO ‘'' TO INHIBIT T-BIT 

TRAPPING. THIS SHOULD HELP YOU DETERMINE WHAT MAKES THE 
MACHINE FAIL AND WHEN. 


IF YOU HAVE BEEN RUNNING WITH BIT 15 OF THE SWITCH 

REG. EQUAL TO ‘0°’, THEN YOU ARE ABLE TO LOOK AT ALL 

THE ERRORS —. MAY BE RELATED TO THE FAULT YOU ARE 

DIAGNOSING. A FAULT _IN AN EARLIER TEST MAY RESULT IN 

ERRORS DURING LATER 7 aa WHICH MAY GIVE YOU MORE ‘s 
CLUES ABOUT THE NATURE OF THE FAULT. NOW USE THE METHOD 
OUTLINED IN SECTION 5. oF FOR EACH ERROR TO GATHER AS 

MUCH INFORMATION AS POSSIBLE: 


NOW TO TEST YOUR IDEAS ON THE CAUSE OF THE FAILURE, 
YOU MAY WANT TO SCOPE THIS ERROR CONDITION. SET BIT 09 
OF THE SWITCH REG. EQUAL TO '‘l’' TO LOOP ON THE ERROR. 


FOR AN E OOP THE ERROR CALL CAN BE 
REPLACED WITH A BRANCH (REFER TO COMMENTS BY ERROR CALLS 
IN THE PROGRAM LISTING). 


OR YOU COULD LOOP ON THE TEST BY EITHER SETTING BIT 14 
OF THE SWITCH REG. EQUAL TO 'l'' OF BY SETTING BIT 08 OF THE 
SWITCH REG. EQUAL TO ‘l’’ AND THEN SETTING THE TEST NUMBER | 
IN BITS 07-00 OF THE SWITCH REG. YOU WILL PROBABLY WANT TO + 
INHIBIT ERROR TYPEOUTS BY SETTING BIT 15 OF THE SWITCH REG. 


CKKTABO 11/44 MEM MGMT PRT A 


1196 
1197 


1198 


1199 


mm mr es -_—_—_ 
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-TITLE CKKTABO 11/44 MEM MGMT PRT A 
:*COPYRIGHT (C) 1981 

:*DIGITAL EQUIPMENT CORP. 

7 *MAYNARD, MASS. 01754 


THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
: “PACKAGE (MAINDEC-11-DZQAC-C5), JAN, 1981. 


TTL 
;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 


* SBTTL OPERATIONAL SWITCH SETTINGS 

;* 

:* SWITCH USE 

** Se Meee a A a ey OS, See RS Re ED ce cen ee ae 
:* 15 HALT ON E 

o* 14 LOOP ON TEST 

o* 13 INHIBIT ERROR TYPEOUTS 
o* 12 INHIBIT TRACE TRAP 

;* 10 BELL ON E 

2* 9 LOOP ON ERROR 

2* 8 LOOP ON TEST IN SWR<7:0> 
= | BASIC DEFINITIONS 


STACK= Ls 





RROR=EMT 
SCOPE=IOT 

s*MISCELLANEOUS DEFINITIONS 
HT= 11 :: CODE FOR HORIZONTAL TAB 
LF= 12 >: CODE FOR LINE FEED 
CR= 15 ::CODE FOR CARRIAGE RETURN 
CRLF= 200 =:CODE FOR CARRIAGE RETURN-LINE FEED 
PS= ; 77776 ::PROCESSOR STATUS WORD 
STKLMT= 177774 ::STACK LIMIT REGISTER 
PIRQ= 177772 ::PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 ; HARDWARE SWITCH REGISTER 
DDISP= 177570 DISPLAY REGISTER 
:*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 20 : GENERAL REGISTER 
R1= 41 =: GENERAL REGISTER 
R2= Z%2 ; :GENERAL REGIST 
R3= 13 > :GENERAL REGIST 
R4= %4 | :GENERAL REGISTER 
R5= 15 > :GENERAL REGISTER 
R6= 16 ;;GENERAL REGISTER 
R7= 47 : ;GENERAL REGISTER 
SP= 16 23 >: STACK POINTER 
PC= 47 COUNTER 
:*PRIORITY LEVEL DEF INI TIONS 
PRO= OO > =PRIORITY LEVEL 0 

s £6 **PRIORITY LEVEL 1 
PR2= : PRIORITY L ¢ 
PR3= 140 *:PRIORITY LEVEL 
PR4= PRIORITY LEVEL 4 
PR5S= 240 :PRIORITY LEVEL 5 
PR6= 300 > =PRIORITY LEVEL 6 
PR7= 340 : PRIORITY LEVEL 7 


ne a eee 


rr 


2 
CKKTABO 11/44 MEM MGMT PRT A MACRO M1113 23-APR-81 13:32 PAGE 15-1 


BASIC DEFINITIONS 


100000 1 
040000 SW14= 40000 
020000 SW13= 
010000 SWi2= 10000 
000 SW11= 4000 
2000 SW10= 2000 
001000 swo9= 1000 
000400 Swos= 400 
200 SWO7= 200 
000100 SWO6= 100 
0 SwOoS= 40 
000020 SwO4= 20 
000010 SwO3= 10 
000004 SwO2= 
$0001 Suoo= 
901000 Su9=Su09 
000400 SW8=SW08 
000200 SW7=SWO7 
000100 SW6=S 
000040 SW5=SW05 
000020 SW4=S 
000010 SW3=Sw03 
000004 SW2=SW02 
000002 SW1=SWO0 
000001 SwO=S 
100000 1 
040000 BIT14= 40000 
020000 BIT13= 
010000 BIT12= 10000 
000 BIT11= 4000 
002000 BIT10= 
001000 IT09= 1000 
00 BITO8= 400 
200 BITO7= 200 
000100 BITO6= 100 
0 BITOS= 40 
000020 BITO4= 20 
000010 BITO3= 10 
BITO2= 
000002 BITOI= 2 
000001 BITOO= -1 
001000 BIT9=BITO9 
000400 BIT8=81T08 
BIT7=81T07 
000100 6=BIT 
000040 BIT5=B81T05 
000020 BIT4=B1T 
000010 3=BIT 
000004 BIT2=BITO2 
000002 B1T1=B81T01 
000001 BITO=B1T00 
:*BASIC ‘'C 
000004 ERRVEC= 4 
000010 RESVEC= 10 


ee alaslnslusatpnmeanicielamasaatil 


PU'' TRAP VECTOR ——s-° 


z*°"SWITCH REGISTER’’ SWITCH DEFINITIONS 
SW15= 00000 


7: TIME OUT AND OTHER ERRORS 
7 RESERVED AND ILLEGAL INSTRUCTIONS 


SEQUENCE 


CKKTABO 11/44 MEM MGMT PRT A 


BASIC DEFINITIONS 


1200 


000250 
177572 
177574 


177576 
172516 


177616 
177620 


172200 
172202 


D 
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TBITVEC=14 ::°'T* BIT 

TRIVEC= 14 3: TRACE TRAP 

BPTVEC= 14 : ;BREAKPOINT TRAP (BPT) 

IOTVEC= 20 : : INPUT /QUTPUT TRAP (IOT) **SCOPE** 

PWRVEC= 24 ::POWER FAIL 

EMTVEC= 30 ; sEMULATOR TRAP (EMT) **ERROR** 

TRAPVEC=34 sé *"TRAP’’ TRAP 

TKVEC= 60 KEYBOARD VECTOR 

TPVEC= SITY PRINTER VECTOR 

PIRQVEC=240 ;PROGRAM INTERRUPT REQUEST VECTOR 
TTL MANAGEMENT DEFINITIONS 


. SB MEMORY 
KITT VECTOR ADDRESS 


MMVEC= 250 
3*KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 


SRI= —«-177574 
SR2= 177576 


= 172 
een cat... DESCRIPTOR REGISTERS 


AR 77676 

*SUPERVISOR *'I'' PAGE DESCRIPTOR REGISTERS 
SPDR RO= 172200 
SIPDR1I= 172202 


CKKTABO 11/44 MEM MGMT 
MEMORY MANAGEMEN I 


N NNNNNN 
MMNMNMN NONMNNNT 


™m 
SONS 
Ress 


7 

7 
72226 
7 

7 

72 


172 
172350 


_ 
Co 
m 
eo | 
2 
aoe 


KIPAR4= 


a ea i tree ee 


SEQUENCE 


172350 
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MEMORY MANAGEMENT DEFINITIONS 


SIRoR 


mel kk ed dd ed od = = od 
.5 icon sicks aeee 
“AUS WN—O 


MNMNMNMMNMMNNN 


1274 


1275 


0001 74 
000176 


000200 


000046 
000052 


000024 
000044 


NNN NNN 
mrn 


366 
2370 


— 3 2 — 9 4 4 a ay 


SN NNN 
mror 
Ww 
™N 
Nm 


7766 


020000 


as 
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KIPARS= 172352 
KIPAR6= 172354 


=SP 
TBIT=BIT4 
WBIT=BIT6 
KERSTK=STACK 
SUPSTK=STACK=200 
USESTK=STACK-300 
CPUERR=177766 


RMIREG=177770 
.SBTTL TRAP CATCHER 
L UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘'.+2,HALT"’ 
. SEGUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
: *LOCATION, 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
DISPREG: ". WORD 0 ::SOFTWARE DISPLAY REGISTER 


>;SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 
JMP @4START ;; JUMP TO STARTING ADDRESS OF PROGRAM 
-SBTTL ACT11 HOOKS 


© = CEE EREAEEEKEKEEEEREEAEAEREKEAEEAEEKEEAEEKEREKKEEKEEAKEEEEE 


*HOOKS REQUIRED BY ACT11 
$SVPC=. 


SEQUENCE is 


6 sSAVE PC 
SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
"WORD 0 ;:2)SET LOC. 332 TO ZERO 


=$SVPC ;; RESTORE P 
.SBTTL APT PARAMETER BLOCK 


5 ERE ERREEEREAEEREREEEEEEEAEEEEAEKEKEKEEEREEKREEREEEREREERE REE EE 


:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

SACI ICICI IOISIIO ITO IE ISIISIIOIIOIDIOIO OO OIUIOIUIIOIOIDOIDIOIDIDIIIOI IDIOT IDE 
22 SAVE CURRENT LOCATION 

~=24 3SET POWER FAIL TO POINT TO START OF PROGRAM 
200 ::FOR APT START UP 

.=44 3:POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR ;;POINT TO APT HEADER BLOCK 





G 
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Ont 11/44 Be Aaa PRT A 


;z;RESET LOCATION COUNTER 


SEAR ERAAEAEEEAEAARERA ERA EAARARRREEAARERERERRRER ERE 


UP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 


: INTERFACE SPEC. 
sf 


0 ; TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMAIL  TADDR ESS OF APT MAILBOX (BITS 0-15) 

10  TRUN TIM OF LONGEST TEST 

20 + RUN TIME IN =e OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

5 ;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
$ETEND~SMAIL/2 ;;LENGTH MAILBOX~E TABLE (WORDS) 


2 a 


H 2 
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COMMON TAGS 


1276 .SBTTL COMMON TAGS 
+ RRRR RARER EERE ERE RARER ERR AREA EERE EEE 
:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN ee 


001100 217 | 
001100 SCMTAG: ;; START OF COMMON TAGS 
001100 000000 - 0 
001102 000 STSTNM: .BYTE 0 :: CONTAINS THE TEST NUMBER 
001103 000 SERFLG: .BYTE 0 :; CONTAINS ERROR FLA 
001104 000000 SICNT: .WORD 0 :: CONTAINS SUBTEST ITERATION COUNT 
001106 000000 PADR: .WORD 0 : CONTAINS SCOPE LOOP ADDRESS 
001110 000000 PERR: .WORD 0 ;: CONTAINS SCOPE RETURN FOR ERRORS 
001112 000000 SERTTL: .WORD 0 :: CONTAINS TOTAL ERRORS DETECTED 
001114 000 SITEMB: .BYTE 0 : CONTAINS ITEM CONTROL BYTE 
001115 001 SERMAX: .BYTE 1 : CONTAINS MAX. ERRORS PER TEST 
001116 000000 SERRPC: .WORD 0 36 TAINS PC OF LAST ERROR | INSTRUCTION 
001120 000000 S$GDADR: .WORD 0 : CONTAINS ADDRESS OF * DATA 
001122 000000 ADR: .WORD 0 7: CONTAINS ADDRESS on "BAD' DATA 
001124 000000 S$GDDAT: .WORD 0 :: CONTAINS ‘GOOD’ DAT 
001126 000000 SBDDAT: .WORD 0 :: CONTAINS ° * DATA 
001130 000000 -WORD 0 : sRESERVED--NOT TO BE USED 
001132 000000 -WORD 0 
001134 000 SAUTOB: .BYTE 0 : ;AUTOMATIC MODE INDICATOR 
001135 000 SINTAG: .BYTE O :: INTERRUPT MODE INDICATOR 
001136 000000 D 6«¢O 
001140 177570 : -WORD ODS ; sADDRESS OF SWITCH REGISTER 
001142 177570 DISPLAY: .WORD DDISP : ;ADDRESS OF DISPLAY REGISTER 
001144 177560 $TKS: 177560 zz: TTY KBD STATUS 
001146 177562 $TKB: 177562 :: TTY KBD BUFFER 
001150 177564 $TPS: 177564 >: TTY PRINTER STATUS REG. ADDRESS 
001152 177566 $TPB: 177566 i: TTY PRINTER BUFFER REG. ADDRESS 
001154 000 L: .BYTE 0 - ¢ CONTAINS NULL CHARACTER FOR FILLS 
001155 002 SFILLS: .BYTE 2 :CONTAINS # OF FILLER CHARACTERS REQUIRED 
001156 012 S$FILLC: .BYTE 12 3 INSERT FILL CHARS. AFTER A‘ FEED’ 
001157 000 S$TPFLG: .BYTE 0O - "TERMINAL AVAILABLE’’ FLAG (BIT<07>=0=YES) 
001160 000000 GAD: . 0 > = CONTAINS THE ADDRESS FROM 
::;WHICH (SREGO) WAS OBTAINED 
000006 -REPT $CM3 
001162 000000 SREGO: .WORD O : ;CONTAINS ((SREGAD) +0) 
001164 000000 SREG1: .WORD 0 : : CONTAINS ((S$REGAD) +2) 
001166 000000 SREG2: .WORD 0 sé TAINS (($REGAD) +4) 
001170 000000 EGS: .WORD 0 : :CONTAINS ((S$REGAD) +6) 
001172 Q00000 SREG4: .WORD 0O : :CONTAINS (($REGAD) +10) 
001174 000000 SREGS: .WORD 0 : :CONTAINS ((S$REGAD) +12) 
000006 -REPT 6 
001176 000000 STMPO: .WORD 0O ; USER DEFINED 
001200 000000 STMP1: .WORD 0 : ;USER DEFINED 
001202 000000 STMP2: .WORD 0 : USER DEFINED 
001204 000000 STMP3: .WORD 0 2s DEF INED 
001206 000000 STMP4: .WORD 0 : ;USER DEFINED 
001210 000000 TMPS5: .WORD 0 : ;USER DEFINED 
001212 000000 | SESCAPE :0 : ;ESCAPE ON ERROR ADDRESS 
001214 207 377 377 $BELL: .ASCIZ : : sielealaliaaaiail : s CODE FOR BELL 
001220 077 S$QUES: .ASCII : TION MARK 
001221 015 $CRLF: .ASCII Ci5> : CARRIAGE RETURN 
001222 012 000 rt eASCIZ <12> LINE FEED 


SSAA IIIA IEISIUISOISISI OOOO IOI SII IIIT IOI 


ee ae ee eee 


me cr ee = ee + + - 


i. 
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APT MAILBOX~E TABLE 
-SBTTL APT MAILBOX-ETABLE 


: SRAAAAAAAAARAAERARAAAAKAEAAAEAAAAAEREEAAEARAARAERERARAEERERAERERAE REE R ED 


* EVEN | 
001224 éMAIL: :APT MAILBOX | 
001394 000000 SMSGTY: .WORD  AMSGTY : MESSAGE TYPE CODE | 
001226 990000 $FATAL: “WORD FATAL :2FATAL ERROR NUMBER | 
1330 000000 STESTN: (WORD ATESTN ::TEST NUMBER | 
001532 000000 ASS: “WORD  APASS ASS COUNT : 
001334 000000 SDEVCT: {WORD ADEVCT ::DEVICE COUNT | 
1536 000000 IT: “WORD  AUNIT 22170 UNIT NUMBER | 
001240 000000 GAD: “WORD AMSGAD ::MESSAGE ADDRESS | 
001342 900000 GLG: “WORD AMSGLG ::MESSAGE LENGTH | 
001544 SETABLE: :cAPT ENVIRONMENT TABLE 
0015 000 NV: .BYTE AENV ENVIRONMENT BYTE | 
001345 «000 NVM: “BYTE AENVM NVIRONMENT MODE BITS 
001346 000000 S$SWREG: “WORD ASWREG ::APT SWITCH REGISTER 
001250 000000 SUR: ‘WORD AUSWR ;:USER SWITCHES 
001552 000000 $CPUOP: ‘WORD  ACPUOP TYPE, OPTI 
ro giTs 1S-1120PU T YPE 
1/04=01,11/05=02,11/20=03.11/40=04,11/45=05 
:-a A 06. =0 e = 0 
ee BIT 10=REAL TIME CLOCK 
‘ BIT 9=FLOATING POINT PROCESSOR 
- BIT 8=MEMORY MANAGEMENT 
001254 $ETEND 
-MEXIT 
001254 000000 TESTNO: .WORD 0 :HOLDS TEST NUMBER FOR TYPEOUTS 
001256 000000 WASR6: WORD 0 “USED TO STORE THE STACK POINTER AFTER A TRAP 
001360 000000 TRAPPC: {WORD 0 “USED TO STORE THE PC OF A TRAP OR ABORT 
1362 000000 TRAPPS: “WORD 0 “USED TO STORE THE PS OF A TRAP OR ABORT 
001264 000000 WASSRO: “WORD 0 “USED TO STORE CONTENTS OF SRO 
001366 000000 WASSR1: (WORD 0 “USED TO STORE CONTENTS OF SRI 
001270 000000 WASSR2: (WORD 0 “USED TO STORE CONTENTS OF SR2 
001372 000000 TBITPS: |WORD 0 “SAVES THE PSW THAT MAY HAVE ITS T-BIT ON 
001274 000000 ONUM: “WORD 0 “HOLDS NUMBER OF TIME-OUT 
001376 000000 VIRT1: “WORD 0 SHOLDS VIRTUAL ADDRESS TO BE CONVERTED 
001300 000000 VIRT2: “WORD 0 _ 
001302 000000 0: “WORD 0 “HOLDS BITS <15:00> OF PHYSICAL ADDRESS 
001304 000000 1: “WORD 0 HOLDS BITS <21216> OF PHYSICAL ADDRESS 
001306 000000 DATAOR: (WORD 0 “HOLDS LOGICAL OR OF BAD DATA 
001310 000000 DATAND: “WORD 0 “HOLDS LOGICAL AND OF BAD DATA 
001312 000000 PATTOR: “WORD 0 “HOLDS LOGICAL OR OF PATTERN LOADED 
001314 000000 PATAND: {WORD 0 “HOLDS LOGICAL AND OF PATTERN LOADED 
001316 000000 ADDROR: “WORD 0 “HOLDS LOGICAL OR OF ADDRESS 
001320 000000 ADRAND: “WORD 0 “HOLDS LOGICAL AND OF ADDRES 
001322 000000 ERRCNT: “WORD 0 “HOLDS R OF ERRORS ON TEST 
001324 000000 BADPC: “WORD 0 “HOLDS PC FROM ABORT OR TRAP 
001326 000000 OLDPC: “WORD 0 “HOLDS RETURN SS IN CASE OF LOOP ON ERROR 
001330 000000 OLDPS: “WORD 0 “HOLDS OLD PSW IN CASE OF L 
001332 000000 PCPUER: “WORD 0 “HOLDS VALUE OF CPU ERROR REGISTER 
001334 000000 CPUEXP: “WORD 0 “HOLDS EXPECTED CPU ERROR CONDITION 
1336 000000 HOLFLG: “WORD 0 “HOLDS NUMBER OF TIMEOUTS FOR CARRY PROPAGATION TEST 
001340 000000 HDWELAG: WORD 0 “FLAGS APT SPECIAL FOR 147 & T50 
001342 020000 READON: -WORD 20000 “READ ONLY BIT IN MARO 
00134% 000200 SMXCNT: “WORD 200 “HOLD MAX. NUMBER OF LOOP ITERATIONS 
1346 000000 $TBIT: “WORD 0 <"T" BIT STATE INDICATOR 





001350 


136 
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APT MAILBOX~E TABLE 


103 


015 $CNTLC: 


PARTAB: 


J 
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eASCIZ /*C/<15><12> 
EVEN 


172200 


SEQUENCE 
: CONTROL C 
;THIS IS THE TABLE OF THE FIRST PAR OR PDR 
OF EACH GROUP. THEY ARE USED FOR THE DUAL 


SADDRESSING TEST. 
: SIPDRO 


K_ 2 
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ERROR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN — 
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND 

:*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


* xNOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 
* *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
:* EM ::POINTS TO THE ERROR MESSAGE 
oe DH ::POINTS TO THE DATA HEADER 
:* DT :<POINTS TO THE DATA 
:* DF = =POINTS TO THE DATA FORMAT 
001372 SERRTB: 
1277 
1278 *ITEM 1 
1279 001372 037460 EM1 sUNEXPECTED CPU TRAP TO LOC. 004 
1280 001374 043023 DHT SOLD PC OLD PSWR6 WAS CPUERR TESTNO ERRORPC 
1281 001376 045762 DT1 > TRAPPC , TRAPPS ,WASR6, CPUERR, SO STNO. SERPPC, O 
1282 001400 046534 DF1 70,0,0,0,0 
1284 :*] TEM 2 
1285 001402 037520 EM2 : UNEXPECTED MEM. MGMT. TRAP TO LOC. 250 
1286 001404 043103 DH2 :OLD PC OLD iy R6 WAS SRI SR2 TESTNO ERR 
1287 001406 046000 DT2 * TRAPPC WASR6G, SASSRO, WASSR1,WASSR2, TESTNO, SERRPC .O 
1288 001410 046541 DF2 =0,0,0, 6. 0,0, 3. °0 
1290 se] TEM 3 
1291 001412 037567 EM3 PRIORITY BITS SET WRONG IN PSW 
1292 001414 043202 DH3 READ TESTNO ERRORPC 
1293 001416 602 DT3 ‘SAECO, SREG1, TESTNO, SERRPC,0 
1294 001420 046551 DF3 :0,0,0, 
1295 
1296 s* ITEM G 
1297 001422 037626 EM4 :MODE BITS SET WRONG IN PSW 
1298 001424 04320 DH3 “WROTE READ ESTNO ERRORPC 
1299 001426 046022 DT3 * $REGO, $REG1, TESTNO, SERRPC 0 
1300 001430 046551 DF3 :0,0,0, 
1302 xITEM 5 
1303 001432 037661 EMS ;DUAL ADDRESSING BETWEEN HI&LO BYTES OF PSW 
1304 001434 043202 DH3 WROTE READ  TESTNO ERRORPC 
1305 001436 046022 DT3 “ $REGO. SREG] , TESTNO, SERRPC ,0 
1306 001440 046551 OF3 :0,0,0, 
1307 
1308 : «ITEM 6 
1309 001442 037734 EM6 *KERNEL R6 CHANGED BY WRITING SUPERVISOR/USER R6 
1310 001444 043202 DH3 “WROTE READ TESTNO ERRORPC 
1311 001446 046022 DT3 ‘ SREGO, $REG1, TESTNO, SERRPC , 0 
1312 001450 046551 DF3 :0,0,0, 


313 

314 001452 

315 001454 

316 001456 

317 001460 

318 

319 

320 001462 

321 001464 

i 

3235 001466 

324 001470 

325 

326 

327 001472 

328 001474 

335 001476 

331 001 

332 

333 

334 001502 

335 001504 

336 

337 001506 

338 001510 

339 

340 

341 001512 

a8 001514 

343 001516 

344 001520 

345 

346 

347 001522 

348 001524 

349 001526 

350 001550 

351 

326 

353 001532 

354 001534 

355 001536 

356 001540 

357 

358 

359 001542 

360 001544 

361 

30% 001546 
001550 

364 

365 

366 001552 

367 001554 

368 001556 

369 001560 


ee ee eee ee ee ee eee ee ee eee eee 
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ss ITEM 7 


;*ITEM 10 
E 


D 
:*ITEM 11 

EM11 

DH11 


DT11 
DF1i 


7* ITEM 12 
E 


D 


:*ITEM 14 
EM14 


DH14 
DT14 


s*I1TEM 16 
EM16 
DH16 
DT16 


DF 1 


zs ITEM 17 
EM17 


M10 
DH10 
DT10 

F10 


M12 
DH12 
DT12 

F12 
:*ITEM 13 

EM13 


SEQUENCE 24 


;A_MEMORY MGMT. REG. TIMED OUT 
;ADDRESS TESTNO ERRORPC 
;SREGO, TESTNO, SERRPC ,0 


; SUMMARY OF MEM. MGMT. REG. TIMEOUTS 
sREGISTER-ADDRS . OF 

sAND-ED OR-ED TIMOUTS TESTNO ERRORPC 
em 


;MEM. MGMT. REG. WOULD NOT CLEAR 

;REGISTR READ READ- (BINARY) 

sADDRESS (OCTAL) 5432109876543210 TESTNO ERRORPC 
se 


e e ae eve 


;MEM. MGMT. REG. BITS NOT SET CORRECTLY 
sREGISTR WROTE READ READ 

Z;ADDRESS (OCTAL) (OCTAL) (BINARY) TESTNO ERRORPC 
;$REGO,$REG1 . SREG2 .SREG2, TESTNO, SERRPC ,0 


:0,0,0,2,0, 


;SRO EFFECTED BY WRITE TO PSW 
; READ TESTNO ERRORPC 
;SREGO, TESTNO, SERRPC .0 


7MAR1 DID NOT TRACK PROPERLY 
sEXPECTD (MAR1) TESTNO ERRORPC 
;SREGS,SREG1, TESTNO, SERRPC ,0 


MRS _IS HOLDING THE WRONG DATA 
zLOADED (MMR3) TESTNO ERRORPC 
;SREG2,$REG1, TESTNO, SERRPC .0 


~ 
’ e ove 


;DUAL ADDRESSING Bere PAR-PDR GROUPS 


INDEX INDEX AR-PDR 
sEXPECTD RECEIVD ADDRREAD TESTNO ERRORPC 
ee eee ee toe 


. 
g 2 e ¢ o 


:PHYS. ADDR. FORMED READ WRONG IN MAINT. MODE 
;VIR ADDR KIPAR4 GDDATA_ BADDATA_TESTNO ERRORPC 
seROe AiEnE ones ane, eee Cow 


« 
¢ o a ce a & 


CKKTABO 11/44 MEM MGMT PRT A 
ERROR POINTER TABLE 


1370 
1371 
1372 001562 040505 
1373 001564 044164 


1375 001566 046170 
1376 001570 046606 


M 2 
MACRO M1113 23-APR-81 13:32 PAGE 18-1 


:*1TEM 20 


AR 4 AR 5 PSW 
I ae $REG4, SREGS, STMPO, TESTNO, SERRPC 


TESTNO 
C,0 


ERR 





N 2 
CKKTABO 11/44 MEM MGMT PRT A MACRO M1113 23-APR-81 13:32 PAGE 19 SEQUENCE 26 


ERROR POINTER TABLE | ' 
1377 :*ITEM 21 | 
1378 001572 040557 EM21 ;$R2 NOT TRACKING CORRECTLY 
1379 001574 044312 DH21 2 WAS EXPECTD TESTNO ERROPC 
1380 001576 12 DT21 “WASSR2,SREG . TESTNO, SERRPC ,0 
1381 001600 046551 DF3 :0,0,0,6 
1383 sx] FEM 22 , 

1384 001602 040612 EM WRONG PDR'S REFERENCED WHILE IN RELOCATE MODE 

1385 001604 044352 DH22 “PHYSICL PAR 4 

1386 sADDRESS V.B.A. AR 4 SRO WAS SR2 WAS PSW TESTNO ERRO 
1387 001606 046224 DT22 ;PBALO, VIRTT REGS, AGASSRO. WASSR2,STMPO, TESTNO, SERRPC 0 
1388 001610 046606 DF 20 :3,0,0.0,0,0.0,0 

1390 :* ITEM 23 

1391 001612 040670 EM23 -PAR OR PDR WAS CHANGED BY A RESET 

1392 001614 043372 DH11 *REGISTR READ EAD- (BINARY 

1393 “ADDRESS (OCTAL) 5432109876543210 TESTNO ERRORPC 
1394 001616 04 DT11 * $REGO, $REG1, $REG1 , TESTNO, SERRPC ,0 

1395 001620 046565 DF11 :0,0,2,0, 

1396 

1397 :*IT TEM 24 

1398 001622 040726 EM24 sMAINT MODE (SRO<8>) NOT DISABLED BY A RESET 

1399 001624 044470 DH24 s;TESTNO ERRORPC ‘ 
1400 001626 246 DT24 > TESTNO, SERRPC 0 ' 
1401 001630 046616 DF 24 30, 

1402 

1403 s* ITEM 25 

1404 001632 1004 EM25 :DATA INCORRECT AFTER A MAINT. MODE WRITE 

1405 001634 043202 DH3 = WRO R TESTNO ERRORPC 

1406 001636 046254 DT25 *$REG1,$REG2, TESTNO,$ERRPC,0 

1407 001640 046551 DF3 :0,0,0, 

1408 

1409 :* ITEM 26 

1410 001642 041055 EM26 :SOURCE RELOCATED IN MAINT. MODE 

1411 001644 043103 DH2 “OLD PC OLD PSW R6 WAS SRO SR2 TESTNO ERRORPC 
1412 001646 DT2 : TRAPPC,, TRAPPS ,WASR6,WASSRO, ASSAD. TESTNO, SERRPC,0 
1413 001650 046541 DF2 :0,0,0,0,0,0,0° 

1415 xITEM 27 

1416 001652 041115 EM27 : SR2 DIDNOT LOCKUP CORRECT VIRTUAL ADDR. 

1417 001654 044312 DH21 EXPECTD TESTNO ERRORPC 

1418 001656 0462 DT27 “WASSR2, SREG4, TESTNO, SERRPC ,0 | 
1619 001660 046551 DF3 70,0,0,0 

est :* ITEM 30 

1428 001662 041171 EM30 “FOLLOWING PAR/PDR WILL NOT ZERO 

1423 001664 044510 DH30 “ADDRESS DATA -TESTNO ERRORPC 

1424 001666 046 DT30 * $REGO,$REG2, TESTNO, SERRPC ,0 

16 5 001670 046551 DF3 :0,0,0, 

1427 :*I]TEM 31 

1428 001672 041231 E = SUMMARY OF DUAL ADDRESSING ERRORS 

1429 001674 044550 DH31 “ADDROR ADDRAND ADDROR ADDRAND 

1430 “LOADED LOADED ENABLED ENABLED TESTNO #ERRORS 

1431 001676 046312 DT31 ADDROR " DATAOR, DATAND, TESTNO, ERRCNT , 0 

1432 001700 046551 DF3 ‘00,0,0,0.1 


CKKTABO 11/44 MEM MGMT PRT A 


ERROR POINTER TABLE 


1433 

1434 001702 041273 
1435 001704 044667 
1436 001706 

1437 001710 

1438 

1439 

1440 001712 041335 
1441 001714 044767 
144@ 001716 046352 
1443 001720 

144% 

1445 

1446 001722 041401 
1447 001724 045037 
1449 001726 000000 
1450 001730 000000 
1451 

1452 

1453 001732 000000 
1454 001734 000000 
1455 001736 046366 
1456 001740 046534 
1457 

1458 

1459 001742 041472 
1460 001744 045057 
1461 001746 000000 
1462 001750 000000 
1463 

1464 

1465 001752 000000 
1466 001754 000000 
1467 001756 046376 
1468 001760 046555 
1469 

1470 

1471 001762 04156 
147¢ 001764 045126 
14 

1474 001766 0460 

1475 001770 046555 
1476 

1477 

1478 001772 041644 
1479 001774 045164 
1480 001776 046412 
1481 002000 046541 
1283 

1484 002002 041725 
1485 002004 045225 
1487 002006 046424 
1488 002010 046541 


3 
MACRO M1113 23-APR-81 13:32 PAGE 50 


:s]TEM * 
DH32 
DT32 
DF 32 

:s ITEM 33 
EM33 
DH33 
DT33 
DF33 


zs ITEM 34 


-WORD 0 


:* ITEM 35 
-WORD 0O 


. WORD 
DT35 


ss ITEM 36 


7 *I1TEM 40 
EM40 


DT7 
DF7 


7 ITEM 41 
EM41 
DH41 
DT41 
DF2 

s* ITEM 42 
EM42 
DH42 


DT42 
DF2 


:0,0,0,0,0.0,0.1 


; SUMMARY OF COUNT Rak FAILURES 
;ADDROR ADDRAND PATRNOR 


PATRNAND DAT DATAAND TESTNO #€ 


AOR 
ADDROR ,ADRAND , PATTOR ,PATAND , DATAOR ,DATAND , TESTNO, ERRCNT ,O 


sERROR IN BYTE ADDRESSING OF PAR/PDR 
ZADDRESS EXPECTD RECEIVD TESTNO ERRORPC 
: SREGO, $REG2, $REG1 , TESTNO, SERRPC 0 


:0,0,0,0,0 


;THE FOLLOWING ARE DUAL ADDRESSING ERRORS FOR PAR‘S/PDR‘S 
S ADDRES 


ADDRES 
; LOADED 
:THIS IS A NULL VALUE TO 
;THIS IS A NULL VALUE TO 


L VALUE TO 
L VALUE TO 
ESTNO,0 


OLLOWING ARE COUNT 


SS 
;THIS IS A NULL VALUE TO 
IS IS A NULL VALUE TO 


L vee TO 


su HIS IS A NUL 

:THIS IS A NULL VALUE TO 
; SREGO, SREG2 , SREG4 , SREG1, 
:0,0,0,0,0 


; ILLEGAL reat 10) STACK 
: READOFF TESTNO ERRORPC 


‘ SREGO, TESTNO, SERRPC.,0 


;18-BIT MAPPING POSSIBLE 
;STARTADR FINISHADR TEST 


Be Be Be Be 
onun— 


70,0,0,0 


S 
JUST READ TESTNO 


DATAREAD PATTERN 


INHIBIT TYPING 
INHIBIT TYPING 


INHIBIT TYPING 
INHIBIT TYPING 


PATTERN ERRORS FCR PAR'S/PDR'S 
COUNT _TESTNO 
INHIBIT TYPING 
INHIBIT TYPING 


INHIBIT TYPING 
INHIBIT TYPING 
TESTNO,O 


POINTER NOT MAPPED TO USER 


HOLE IN MAIN MEMORY FROM 
NO ERRORPC 


;STMP1,STMP2, TESTNO, SERRPC, 


;FAULTY CARRY PROPAGATION 18-BIT MAPPING 
ADDRESS 


:PATTERN DATA 
OADED FETCHED 


INTENDED sd ERRORPC 


cL 
:SREG2, ae , SREGO, TESTNO, SERRPC 


e e y 4. 


enn ee ee 


¢ 3 
CKKTABO 11/44 MEM MGMT PRT A MACRO M1113 23-APR-81 13:32 PAGE 21 SEQUENCE 28 
ERROR POINTER TABLE 


1489 se] TEM 43 

1490 002012 041775 EM43 :18-BIT MAPPING POSSIBLE HOLE AT TOP OF MEMORY 
1491 14 045327 DH43 =STARTADR TESTNO ERRORPC 

1492 002016 046440 DT43 =$TMP1, TESTNO, SERRPC, 0 

1493 0020 046636 DF43 74,0, 

1494 

1495 *ITEM 44 

1496 902082 042053 EM44 :NO TRAP THRU ERRVEC.AT 18-BIT ADDR. 760000 
1497 4 044470 DH24 :TESTNO ERRORPC 

1498 002026 046246 DT24 = TESTNO, SERRPC,0 

1499 0020 16 DF 24 70, 

1500 

1501 :*1TEM 45 

1 002032 042126 EM45 :DIDN'T GET WRAP AROUND TO ADDRESS ZERO 
150 34 045357 DH45 =DATA TESTNO ERRORPC 

1504 002036 046450 DT45 * $REG1, TESTNO, $ERRPC,0 

1505 002040 046555 DF7 70.0, 

1506 

1507 :*ITEM 46 

1508 002042 042175 EM46 :NO TRAP THRU ERRVEC, ON NON-EXISTANT ADDR. 
1509 002044 045407 DH46 *NEADDR TESTNO ERRORPC \ 

1510 002046 60 DT7 = $REGO, TESTNO, SERRC,0 , 

Fah 002050 046555 DF7 SUVs 

1218 :* ITEM 47 

1514 002052 042250 EM47 :PREMATURE END OF MEMORY FOUND 

1515 002054 045436 DH47 :KIPAR4 LASTBK TESTNO ERRORPC 

1516 002056 64 DT47 :KIPARS ,$LSTBK, TESTNO, SERRPC ,0 

1517 CO 046541 DF2 30.0.0, 

1518 

1519 :*x ITEM 50 

1520 002062 2 EMS0O :22-BIT MAPPING POSSIBLE HOLE IN MAIN MEMORY FROM 
1521 002064 045164 DH41 = STARTBK FINISHBK TESTNO ERRORPC 

13¢¢ 002066 046412 DT41 = $TMP1,$TMP2, TESTNO, SERRPC,0 

1523 002070 046541 DF2 30.0.0. 

1524 

1525 :*ITEM 51 

1526 002072 236 EM51 :BAD RELOCATION, CARRY PROPAGATION 22-BIT MAPPING 
1527 002074 045225 DH42 :PATTERN DATA ADDRESS 

1528 =LOADED FETCHED INTENDED TESTNO ERRORPC 
1362 002076 642 DT42 = $REG2, G3,$REGO, TESTNO, SERRPC,0 

Fe 002100 046541 DF2 -0, 0.0.0.0 

1258 se ITEM 52 

1533 002102 042447 EM52 :22-BIT MAPPING POSSIBLE HOLE AT TOP OF MEMORY 
1534 002104 045327 DH43 *STARTADR TESTNO ERRORPC 

1535 002106 046440 DT43 = $TMP1, TESTNO, SERRPC,0 

1536 002110 046541 DF2 70.0, 

1537 

1538 “ITEM 53 

1539 002112 042525 EMS3 :DID NOT GET UNIBUS ADDRESS 

1540 002114 045225 DH42 *PATTERN DATA ADDRESS 

1541 :LOADED FETCHED INTENDED TESTNO ERRORPC 
1562 002116 04642 DT42 - $REG2, $REG3, SREGO, TESTNO, SERRPC,0 

1543 002120 046541 DF2 :0,0,0.0,0 


an 


KKTABO 11/44 MEM MGMT PRT A 
ERROR POINTER TABLE 

1544 

1545 OO Se O6 e288 

iF ax: 124 045502 

1548 ATS 046472 

1549 0021 046551 

1550 

1551 

1552 002132 042615 

155 134 045562 

1554 

1555 002136 0465 

1556 002140 046534 

1557 

1558 

1559 002142 042654 

1560 002144 662 

1561 002146 046520 

1562 002150 046555 

1563 

1564 

1565 Oe ae 042720 

1566 002154 045712 

1567 002156 046124 

1568 002160 55 

1569 

1570 

1571 002162 042765 

1572 002164 045752 

1573 002166 65 

1574 002170 046534 


z*ITEM 56 
E 
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st ITEM 54 


EMS4 
DH54 


DT54 
DF3 


7*ITEM 55 
EMS5 


DH55 


DT55 
DF1 


z* ITEM 60 
EM60 


DH60 
DT60 
DF1 


SEQUENCE 


;W-BIT DID NOT GET SET IN PDR 


PDR 
‘ SREGS. ADDRESS TESTNO ERRORPC 
EGS ,SREG3, TESTNO, SERRPC ,0 


e * ca oa 


;W-BIT SET IN MORE THAN ONE PDR 

;PDR IN PDR VIRTUAL 

RROR TESTED ADDRESS TESTNO ERRORPC 
; $REGO, .* , SREGS, TESTNO, SERRPC ,0 


;W-BIT NOT CLEARED BY WRITING TO PDR 
PDR TESTNO ERRORPC 
;$REGS. TESTNO,SERRPC 0 


7W-BIT GOT SET DURING ODD ADDR. ABORT 
PDR WAS EXPECTD TESTNO ERRORPC 
: SREG2, SREG1, TESTNO, SERRPC ,0 


7 APT SPECIAL HARDWARE FOUND 
RRORPC 
:SERRPC. 0 


ee ee Ct; 


29 


’ 
’ 

one ee 
ee ee eee eee SE. ee 
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CKKTABO 11/44 MEM MGMT PRT A MACRO M1113 23-APR-81 13:32 PAGE 55 SEQUENCE 
TURN OFF T=-BI1T AND SAVE CURRENT PSW 


1575 = SBTTL TURN OFF T-BIT AND SAVE CURRENT PSW 
1576 {RARER EAE EE AERA AAA RERARERERERAEAARERERRA RRR EEE 
1577 ; sexes SUBROUTINES UNIQUE TO THIS PROGRAM = *«x# 
1578 FL RRA AAERE AAA EEE AREER EEEARERERRERRAERRAEERERERERRERERAR REE RE 
1579 +t 
1580 s* THIS SUBROUTINE IS USED TO TURN OFF THE TRACE TRAP BIT IN 
1581 -* THE PSW IF IT IS ON, THE PROCESSOR STATUS IS SAVED IN 
13 s* "TBITPS** SO THAT THE PSW CAN BE RESTORED TO ITS PREVIOUS 
Py 7* CONDITION WHEN CONDITIONS WARRANT T=-BIT TRAPPING. 

> 
+4 FF Sadalalalaiaiadotataiaiaiaiadobtylalpttuletotalalabaiaiaiaipiei-tal-tetoinintainteioiabed-i-iaieteiysadebaytahaiale 
1 002172 sore! 177776 000020 TOFF BIT PSW,ATBIT 71S THE T-BIT SET IN THE PSW? 
1587 002200 0014 BEQ 1$ EXIT IF NO 
1588 002202 01 $746 177776 MOV PSW,-(SP) ;PUSH PRESENT PSW ON THE STACK 
1589 002206 011637 001272 MOV (SP), TBITPS ;ALSO SAVE IT_IN ‘‘TBITPS'’ FOR 
1590 ;RESTORING LATER 
1591 002212 042716 000020 BIC #TBIT, (SP) :CLEAR THE T-BIT (BIT 4) IN THE PSW 
1238 002216 012746 002224 MOV #1$,~(SP) ;PUSH PC OF ‘RTS’ ON STACK 
1593 002222 000006 RiT ;' RETURN'* TO 1$ WITH T-BIT OFF 
1594 002224 000207 1$: RTS PC ;RETURN TO PROGRAM 


—eE 


CKKTABO 11 ait 


MGMT 


z3 


033727 


01 

012746 
000006 
000207 


001272 


001272 
340 


000 
002256 


a mc ae — 
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MACRO M1113 23-APR-81 13:32 PAGE 5 SEQUENCE 31 


PRT A 
RESTORE PREVIOUS PSW 


000020 


001272 


.SBTTL TURN ON T-BIT AND RESTORE PREVIOUS PSW 


£ AAA EAA AAA RERERAEAAAAEEAAARAERAEAAAEAAARRARERAERAARAREREE RES 


* 

5m THIS SUBROUTINE IS USED TO RESTORE THE PROCESSOR STATUS 
;* TO ITS PREVIOUS CONDITION BY RESTORING “T-BIT PSw"' 
** 
** 


THE T-8IT P 
SAVED BY THE ‘‘TOFF’* SUBROUTINE IN THE ‘‘TBITPS*’ LOCATION. 


PERERA SSAAALASASASLSALASALASASR RRS EARL ARRAS RR RARR SAAR ARSED SD DS 


ON: BIT TBITPS ,ATBIT ;WAS T-BIT ON IN THE PREVIOUS PSW? 


i 


BEQ 1$ sEXIT IF NO 

MOV TBITPS,~(SP) ;PUSH PREV VIOUS PSW ON THE STACK 

MOV #340, TBITPS :RESET THE ‘'TBITPS'* LOCATION 

MOV #1$,-(SP) ; PUSH PC OF *RTS'’ ON STACK 

RTT RETURN'' TO 1$ WITH T-BIT RESTORED 
1$: RTS PC “RETURN TO PROGRAM 


one em oe ee 


ae ee ee 


—— eee 


me ee -—— Ct” -—_——-=- -_—— — — a = 
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CKKTABO 11/44 MEM MGMT PRT A MACRO M1113 23-APR-81 13:32 PAGE 85 SEQUENCE 
CLEAR 16 PAR*S OR PDR'S STARTING FROM ADDRESS IN R5 


.SBTTL CLEAR 16 PAR'S OR PDR'S STARTING FROM ADDRESS IN R5 

: potent EE lena Eh Ge aa 
:* THIS ROUTINE CLEARS 16 CONSECUTIVE MEMORY MANAGEMENT 

s* a Se STARTING WITH THE pel POINTED TO BY R5. 
5¢ IT SAVES RO ON THE STACK, AND LOADS A COUNT IN RO, 

s* CLEARS THE PAR'S OR PDR'S, AND THEN RESTORES RO 

3* BEFORE RETURNING. 
-* 
- 
- 


DWONAULWR—O 


CALL: MOV #KIPARO,RS5 sPUT ADDRESS OF FIRST KERNAL PAR INTO R5 
JSR PC,CLRREG ;CLEAR ALL THE KERNAL PAR'S 


Pee eee Tee eT TTT TT TCT ee TTT TTT TITS TTT ITT TITTLE 


002260 010046 CLRREG: MOV RO, -(KSP) : SAVE RO ON THE STACK 
000020 MOV #20,RO =PUT COUNT IN RO 
002266 005025 1$: CLR (R5)+ “CLEAR PAR OR PDR POINTED TO BY RS 
002270 077002 SOB RO,1$ “BRANCH BACK 15 DECIMAL TIMES 
002272 012600 MOV (KSP) +,RO =POP RO FROM STA 
PC “RETURN TO TEST 


BERERRE 
S 
g 
° 
3 


& 
N 
S 
™m 
Nm 
~ 
: 
oO 
N 
Pe) 
~ 
wn 


ee ee ee ee ee 


loge 

1830 

1on 

1638 

1634 

1635 002276 
1636 OSS05 
1637 002302 
1638 00 
1639 12 
1640 002316 
1641 002322 
1642 002326 
16435 002332 


CKKTABO 11/44 MEM MGMT 
CLEANUP LOCATIONS THAT HOLD LOGICAL ‘AND’ 





TA 


sss=sse 
NOR 
WAG VIS 
te 
fSoOoonnn 


=—n—— 


3 
MACRO iam rs 13:32 PAGE 36 


- SBTTL CLEANUP LOCATIONS THAT HOLD LOGICAL ‘AND' AND ‘OR’ 

erriitit ttt ititti tite ttt ii iiti titi iii rr 
* THIS SUBROUTINE IS USED TO INITIALIZE ALL LOCATIONS THAT 
* HOLD THE ‘LOGICAL AND'' AND “LOGICAL OR'* OF THE DATA AND 
* ADDRESSES THAT FAILED DURING THE EXECUTION OF A TEST. 


TARE SAEESESSESASASLALLASLALA AREER ERR EERE RARER RRR AR RAR RAR RRR LARD DSS OD 


;LOCATION OF LOGICAL OR OF BAD DATA 
;LOCATION OF LOGICAL OR OF ADDRESS 
: LOCATION LOGICAL OR OF PATTERN LOADED 


MOV #~-1,RO :LOAD -1 INTO RO TO INITIALIZE 

MOV RO,DATAND SLOCATION OF LOGICAL AND OF BAD DATA 

MOV 0, ADRAND :LOCATION OF LOGICAL AND OF ADDRESS 

MOV RO,PATAND [LOCATION OF LOGICAL AND OF PATTERN LOADED 
RTS PC ;RETURN TO TEST 


em see se tt: 


. s 
CKKTABO 11/44 MEM MGMT PRT A MACRO M1113 23-APR-81 13:32 PAGE 27 SEQUENCE 34 
DUAL ADDRESSING WHEN LOADING A PAR OR PDR 


1644 .SBTTL DUAL ADDRESSING WHEN LOADING A PAR OR PDR 
1645 8 REE AAEAEEAAEAAAAAEEEAERAEKCEAEAAAARAAKCAAAAAAEEAAEEAEAEAREAREEEEEE 
1646 3* THIS SUBROUTINE WILL LOG AND REPORT ALL DUAL ADDRESSING ERRORS 
1647 :* F OUND IN BOTH PAR'S AND PDR'S. A ‘LOGICAL OR’* AND A , LOGICAL 
1648 ;* AND** OF THE ‘ea @ ADDRESSES WILL BE MAINTAINED IN 
1649 ;* AND ° THE LOG ON THE ADDITIONAL OR FAILING ADDRESSES 
1650 WILL BE MAINTAINED IN°'DATAOR" AND. *DATAND® . 
1651 TTT TTT TTT TELE L ELLE ELLE LLL 
1652 
16535 002334 DUALADR : 
1654 002334 012637 001326 MOV (KSP)+,OLDPC ; SAVE RETURN ADDRESS IN CASE OF LOOP 
1655 002340 050037 001316 BIS RO,ADDROR = LOGICAL OR OF WRITTEN ADDRESS 
1656 002344 001320 BIT RO,ADRAND = LOGICAL AND OF WRITTEN ADDRESS 
1657 002350 050137 001306 BIS R1,DATAOR = LOGICAL OR OF DUALED DATA 
1658 002354 030137 001310 BIT R1,DATAND = LOGICAL AND OF DUALED DATA 
1659 002360 105737 001103 TSTB SERFLG = SEE IF THIS IS FIRST ERROR 

2364 1002 BNE 1$ = BRANCH IF NOT FIRST ERROR 
1661 002366 104034 ERROR +34 
br | 002370 000401 BR 2$ ;BRANCH TO EXIT 
1663 002372 104035 1$: ERROR +35 
1 002374 000177 176726 2$: JMP AOL DPC s;RETURN TO TEST 


Remeneiinente: ee i re — 


eee eee 


CKKTABO 11/44 MEM MGMT PRT A 


COUNT PATTERN ERRORS IN PAR 


012637 
0 


00 
012702 


—3 I I 
—NWNAANWw 
==) 
SMO 


S8SS8S8S 
ROR 
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MACRO M1113 23-APR-81 13:32 PAGE 28 
*S OR PDR*'S 


———— ee 


- SBTTL COUNT PATTERN ERRORS IN PAR'S OR PDR'S 


s AAAAAAAEAAAEAAEAAEAERAERAEAAEAAAEAEARAAAEAARAAEARAAERARAETAARARRAERARAE EE 


3 THIS SUBROUTINE IS USED TO LOG AND REPORT THE COUNT PATTERN 
7* ERRORS OCCURRING WHEN TESTING THE PAR"S AND PDR'S. THE 
;* "LOGICAL OR*’ AND “LOGICAL AND‘’* OF VARIOUS DATA WILL BE 
;* MAINTAINED A FOLLOWS: 
;* ie tea: OF FAILED REGISTERS IN ‘ADDROR' AND ‘ADRAND‘ 
:* 2. DATA FETCHED FROM REGISTERS IN ‘DATAOR’ AND ‘DATAND’ 
;* 3. PATTERN LOADED INTO REGISTERS IN ‘PATTOR’ AND ‘PATAND'. 
5 LARA EREREEEKEAEEREEEREREKREREREERREEERREEREERAEREERRERERRRREEE 
PARCOUNT: 
MOV (KSP) +, OLDPC ;SAVE RETURN “ery IN CASE OF LOOP 
BIS RO,ADDROR = LOGICAL OR OF FAILING ADDRESS 
BIT AD sLOGICAL AND OF FAILING ADDRESS 
BIS R1,PATTOR ;LOGICAL OR OF PATTERN L 
BIT 1,PATAND ; CAL AND OF PATTERN LOADED 
BIS R2,DATAOR ;LOGICAL OR OF . FETCHE 
BIT 2,DATAND zL CAL AND OF DATA FETCHED 
TSTB SERFLG sSEE IF THIS IS THE FIRST ERROR 
b } BRANCH IF NOT FIRST ERROR 
ERROR +36 
;BRANCH TO EXIT 
1$: ERROR +37 
2$: JMP @0LDPC ;RETURN TO TEST 
> *CALL: 
7* JSR PC,$SIZE 
:* RET 
; *SLSTAD WILL CONTAIN: 
7* WITH KT11 OPTION -- LAST VIRTUAL ADDRESS OF THE LAST 
;* WITHOUT KT11 OPTION 


:*$LSTBK WILL CONTAIN THE LAST BANK AS A 
; *B1TO7 = 0 DON'T USE MEMORY MANAGEMENT 
MUST BE SETUP BEFORE TH CALL 
481715 = 0 DON'T HAVE Y MANAGEMENT OPTION 
TERMINED BY ROUT INE 
< sSLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 
$SIZE: fov RO,-(SP) :zSAVE RO HE STACK 





R3,~(SP) VE HE STACK 
MOV ERRVEC,-(SP) ‘ TSAVE PRESENT ERROR VECTOR PS & PC 


MOV ERRVEC4+2,-(SP) 
MOV SP, “SAVE THE STACK POINTER 
::SET THE ERRVEC PS TO THE PRESENT PS 
TRAP “PUSH OLD PSW AND PC ON STACK 


MOV (SP)+, ERRVEC+2 ‘ TSAVE THE PSW IN ERRVEC+2 

MOV #3776,R1 +: SETUP ADDRESS 

TSTB (PC)+ :USE MEMORY MANAGEMENT? 
$KT11: .WORD 200 :3SET TO USE MEMORY MANAGEMENT 

BPL SCORE ;BR_IF NO 

MOV #SKTNEX ,ERRVEC SISET FOR TI 

TST SRO KT11 ARE YOU THERE? 

BIS #100000 , $KT11 ; YES--SET KT11 KEY 


::SET IN CASE OF ERROR 


CLR (SP sz INITIALIZE FOR *PAR’* LOADING 
MOV #KIPARO,R2 7 ;ADDRESS OF FIRST ‘PAR’ 


SEQUENCE 


35 


BANK 
=~ LAST — ADDRESS OF AVAILABLE MEMORY 


eA aa ene | ee Se wy See te eth amie sO Ree me ae ee 
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CKKTABO 11/44 MEM MGMT PRT A MACRO M1113. 23-APR-81 13:32 PAGE 28-1 SEQUENCE 36 
COUNT PATTERN ERRORS IN PAR'S OR PDR'S 
002560 012703 000010 MOV #*D8.R3 ::LOAD EIGHT 'PAR.'S'' AND EIGHT 'PDR.'S"' | 
002564 012762 077406 177740 1$: MOV #77406, ~40(R2) :3PDR = 4K, UP, READ/WRITE | | 
002572 011622 MOV (SP), (R2)+ “LOAD 'PAR'' 
002574 716 000200 ADD #200. (SP) : [UPDATE FOR NEXT 'PAR’' 
002600 077307 S08 R3,1$ “LOOP UNTIL ALL EIGHT ARE LOADED 
2 012742 177600 MOV RF 57600, -(R2) ; s SETUP KIPAR7 FOR 1/0 
00 003042 CLR ~(R2) “SETUP KIPAR6 FOR TESTING. 
002610 012737 002626 000004 MOV #2$, ERRVEC ; CATCH TIMEOUT IF NO SR3 
002616 012737 000020 172516 MOV #20,SR3 E 22 BIT mooe 
002624 000401 BR 3$ ::THIS PDP-11 HAS A SRS REGISTER 
002626 022 2$: CMP (SP)+, (SP) + ;3CLEAN OFF TE STAC--NO SR3 
002 5237 177572 3$: INC SRO = TURN ON MEMORY MANAGEMENT 
002634 012737 002660 000004 MOV: WSKTOUT,ERRVEC ::SET FOR TIME OUT 
002642 005737 143776 4$: TST 143776 *: TRAP ON NON-EX-MEM 
002646 712 000040 ADD #40, (R2) : :MAKE A 1K STEP 
002652 023712 172356 CMP KIPAR7, (R2) *:LAST ONE? 
002656 101371 BHI 4$ *:NO=-TRY IT 
002660 011202 SKTOUT: MOV (R2) ,R2 *:GET LAST BANK+1 
002662 005037 177572 cLR SRO =: TURN OFF MEMORY MANAGEMENT 


002666 000421 
002670 049737 100000 002512 $KTNEX: BIC #100000,$KT11_ = ;KT11_NON-EXISTENT 
poser’ 012737 002726 000004 SCORE: MOV AMSCROUT,ERRVEC ;;SET FOR TIMEOUT 


2 005002 CLR R2 -:SET UP BANK 
002706 062701 004000 1$: ADD #4000,R1 >: INCREMENT BY 1K 
002712 062702 000040 ADD #40,R2 ::1K STEP 
002716 005711 TST (R15 >: TRAP ON TIME OUT 
002720 022701 177776 CMP #177776,R1 *:LAST ONE 
002724 001370 BNE 1$ * =NO=-TRY AGAIN 
002726 162701 004000 $CROUT: SUB #4000,R1 
002732 162702 000040 $SIZEX: SUB #40,R2 :DROP BACK 
002736 012737 002754 000004 MOV #2$, ERRVEC < SET FOR TIMEOUT 
002744 012701 020000 MOV #20000,R1 *>FIRST ADDRESS 
002750 005721 1$: TST (R1)+ <= TEST AND STEP TO NEXT ADDRESS 
002752 000776 BR 1$ >: TRY ANOTHER 
002754 162701 000002 2$: SUB #2,R1 i BACK 
002760 010006 MOV RO.SP > :RESTORE THE STACK 
002762 012637 000006 MOV (SP)+,ERRVEC+2 ::RESTORE ERROR VECTOR 
002766 012637 000004 MOV (SP) +, ERRVEC 
010137 003020 MOV R1,$LSTAD ::LAST ADDRESS 
002776 010237 003022 MOV R2.$LSTBK i BANK 
003002 MOV (SP)+,R3 *:RESTORE R3 
003004 012602 MOV (SP)+,R2 : =RESTORE R2 
003006 012601 MOV (SP)+,R1 RESTORE R1 
003010 012600 MOV (SP)+_RO : =RESTORE RO 
003012 005037 177766 CLR CPUERR “CLEAR THE ERROR REGISTER 
003016 000207 RTS PC 
003020 000000 SLSTAD: .WORD 0 :: CONTAINS THE LAST ADDRESS 
003022 000000 $LSTBK: .WORD 0 = CONTAINS THE LAST BANK 





1691 00 
1692 003030 
169 
1694 0 
1695 003042 
696 00 
1697 003052 
1698 00 
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COUNT PATTERN ERRORS IN PAR’S OR 


001206 
000001 
003106 
003146 
000000 
000020 
177777 
001316 
001274 


003024 
001274 


001316 


001320 
001274 


003232 
000010 
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PDR‘S 


001206 


001110 
000004 


001320 


001110 


001206 


001206 © 


000004 


TIMTST: TST 


1$: MOV 


2$: TST 
3$: TST 


4$: ADD 


5$: TST 


6$: TST 
7$: MOV 





STMP4 

1$ 

#1 ,STMP4 
5$ 


6$ 
#2$,$LPERR 
a0(SP) RO 
#20,R1 

#~-1 ,ADRAND 
ADDROR 
TONUM 

<RO) 

(RO) + 
R1,2$ 
#TIMTST,SLPERR 
TONUM 

7$ 

go at 
#1, STMP4 


SP 
ATIMERR ,4 
#10, (SP) 
PC 


Re 


SEQUENCE 37 


7 SEE od THIS IS AN ERROR RETURN | 

TO BEGIN IF NOT | | 

SEE IF THIS IS _THE 1ST ERROR CALL RETURN | 
ONTINUE AF 


ALIZ - LOC. 
S INITIALIZE ‘'TIMEOUTS'' COUNTER 
:TRY ADDRESSING A REGISTER, TIMEOUTS TO 5$ 
‘PUT NEXT oe ge ADDRESS IN RO 
sl BACK TO 2$ UNTIL ALL TESTED 
;RESET LOOP "ON E POINTER TO TIMTST 
:DID ANY OF THE REGISTERS TIME OUT? 


IF NOT 

;MOVE AN EXTRA RETURN PC ONTO STACK FOR POSSIBLE ERROR LOOP 
;FUDGE RETURN TO CALL 2ND ERROR 

:MOVE 1ST “rn stan TO STMP4 


URN TO 
: CLEAN UP THE ore 
2ND ERROR 


FLAG TO STMP4 
MOVE AN EXTRA RETURN PC ONTO STACK FOR POSSIBLE ERROR LOOP 
;FUDGE RETURN FOR 1ST ERROR CALL IN TEST 
;RETURN TO CALL 2ND ERROR 
:POP EXCESS RETURN OFF STACK - NO LOOP 
sLOAD THE ADDRESS THAT TIMED <i INTO ae 
+, OR’ I IT WITH OTHER ADDRS. THAT TIMED OU 
7" 'AND’’ IT WITH OTHER ADDRS. THAT TIMED OUT 


+ INCREMENT THE TIMEOUT COUNTER 
H BACK TO TEST THE NEXT REGISTER 
:POP EXCESS RETURN OFF STACK - NO LOOP 
: RESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
GE RETURN OVER BOTH ERROR CALLS 
‘RETURN TO TEST 


eee ae” 
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CPU TRAP HANDLER ROUTINE 


1739 .SBTTL CPU TRAP HANDLER ROUTINE | | 

17 : SAAR AEREREREEREAERAEERARERERAEEAERERREREREARAERRRERR ERE 

1731 : aeeee TRAP HANDLING ROUTINES **««« | 

1732 FARRAR ERR REEEEREREEARRERAEREAERERKERERARAERE EERE REE 

1733 - 

1734 :* S SUBROUTINE WILL HANDLE ALL CPU TRAPS AND ABORTS THRU 

1735 :* TERRVEC™ (LOC. 004). IF THIS SUBROUTINE IS ENTERED BY A 

1736 :* SECOND TRAP BEFORE THE FIRST HAS BEEN SERVICED, A HALT IS | 

ye tA :* EXECUTED. | 
** 

1739 Tae eee eee em Ye EE Ee | 

1740 2 005227 TIMERR: INC (PC)+ ;MAKE FLAG ZERO IF FIRST TIME THRU 

1741 003234 177777 TIMFLG: .WORD -1 “NEGATIVE ONE FOR ‘HAVE ENTERED’' FLAG 

1742 003236 001401 BEQ 1$ :BRANCH IF FIRST TIME IN 

1743 003240 000000 HALT -STOP! = I*VE ENTERED THIS ROUTINE 

1744 :A SECOND TIME BEFORE 

1745 :REPORTING THE FIRST ERROR. 

1746 SECOND ENTRY ADDRESS SHOULD BE ON 

1747 THE KERNEL STACK. 

1748 003242 012637 001260 1$: MOV (KSP)+,TRAPPC :SAVE PC+2 AT TIME OF ABORT 

1749 003246 012637 001262 MOV (KSP)+,TRAPPS  ;SAVE PS AT TIME OF ABORT 

1750 003252 013737 177766 001332 MOV CPUERR,PCPUER ;SAVE CPU ERROR REGISTER 

1751 003260 010637 001256 MOV KSP,WASR6 “SAVE STACK POINTER VALUE 

173¢ 003264 005737 001334 TST CPUEXP “SEE IF ANY ERROR CONDITION WAS EXPECTED 

1753 003270 001404 BEQ 2$ BRANCH IF NO TRAP EXPECTED 

1754 003¢78 023737 001332 001334 CMP PCPUER,CPUEXP ;SEE IF EXPECTED CONDITION OCCURED 

1755 003 001401 BEQ 3$ “BRANCH IF ERROR CODES MATCH 

1756 003302 104001 2$: ERROR +1 UNEXPECTED TRAP OR ABORT TO LOC. 4 

1757 003304 005037 177766 3$: CLR CPUERR :CLEAR CPU ERROR REGISTER 

1758 003310 012737 177777 003234 MOV #-1, TIMFLG “MAKE FLAG NEGATIVE ONE FOR NEXT TIME 

1759 003316 013746 001262 MOV TRAPPS,-(KSP) ;:PUT PC & PS OF TRAP ON STACK 

1760 003322 013746 001260 MOV TRAPPC , ~(KSP) 

1761 003326 000006 RTT :RETURN FROM INTERRUPT OR ABORT 


a ae ee 
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MEMORY MANAGEMENT TRAP HANDLER ROUTINE 


1762 sar MEMORY MANAGEMENT TRAP HANDLER ROUTINE 
1763 5 ERE A AAA AERA AAR AAR ERE EERE EEREREERRRRAAAERRERRRRERERERR EEE 
1764 te 
1765 ot THIS SUBROUTINE WILL HANDLE ALL UNEXPEC CTED MEMORY MANAGEMENT 
1766 ao TRAPS AND ABORTS THRU ‘MMVEC’' (LOC. 250). IF THIS SUBROUTINE IS 
1767 :* ENTERED BY A SECOND D TRAP BEFORE THE FIRST HAS BEEN SERVICED, A 
1768 :* HALT IS EXECUTED. 

*® 
1770 Te ae gee rae Oo gy Ee 
1771 003330 005227 MGMERR: INC (PC)+ sMAKE FLAG ZERO IF FIRST TIME THRU 
1772 003332 1 MGMFLG: .WORD <1 “NEGATIVE ONE FOR ‘HAVE ENTERED'' FLAG 
1773 003334 001401 BEQ 1$ “BRANCH IF FIRST TIME IN 
1774 003336 000000 HALT “STOP! = I'VE ENTERED THIS ROUT INE 
1775 *A SECOND TIME BEFORE I FINISHED 
1776 “REPORTING THE abaRs! ERROR. T 
1777 :SECOND ENTRY ESS SHOULD BE ON 
1778 “THE KERNEL STACK. 
1779 003340 012637 001260 1$: MOV (KSP)+,TRAPPC  :SAVE PC+2 AT TIME OF ABORT 
1780 00 012637 001262 MOV (KSP)+.TRAPPS :SAVE PS AT TIME OF ABORT 
1781 003350 010637 001256 MOV KSP,WASR6 : SAVE STACK POINTER VALUE 
1782 003354 013737 177572 001264 MOV SRO, WASSRO “SAVE CONTENTS OF KT STATUS REG. 0 
1783 00 013737 177574 MOV SR1.WASSR1 “SAVE CONTENTS OF KT STATUS REG. 1 
1784 003370 013737 177576 001270 MOV SR2.WASSR2 : CONTENTS OF KT STATUS REG. 2 
1785 003376 042737 160000 177572 BIC #160000, SRO “CLEAR ERROR BITS IN STATUS REG 0 
1786 003404 104002 ERROR +2 “UNEXPECTED TRAP OR ABORT TO LOC. 1250 
1787 003406 012737 177777 003332 MOV #-1,.MGMFLG “MAKE FLAG NEGATIVE ONE FOR NEXT T 
1788 0034 14 013746 001262 MOV TRAPPS,-(KSP) :PUT PC & PS OF TRAP ON STACK 
1789 003420 013746 001260 MOV TRAPPC .~(KSP) 
1790 003424 000006 * RTT :RETURN FROM INTERRUPT OR ABORT. 





s 
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CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS 






1791 _SBTTL CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS 

a4 2 SAAR AAAAAAAAEAAAAAAAAEREAARAAEAAAARAAAAAAAAAAAAEARAAAAAEAAREREE 

179 cf 

1794 ie THIS SUBROUTINE IS USED TO FORM AN 22-817 PHYSICAL ADDRESS 

1795 :* (PBA) FROM THE 16-BIT VIRTUAL ADDRESS (VBA) AND THE APPROPRIATE | 

1796 :* PAGE ADDRESS REGISTER (PAR). THE SAME METHOD USED BY THE MEMORY | 

1797 i LOGIC I D. VBA <15: 13> SELECTS WHICH PAR/PDR | 

1798 i 1S TO BE USED, VBA >+PBA < VBA <12:6> IS ADDED 

1799 Z TO PAR > TO GIVE PBA <2), 6. "BITS <21: 16> THE 

1800 :* PHYSICAL ADDRESS ARE LEFT IN ‘AND BITS <15:00> 

1801 :* ARE LEFT IN LOC. ‘PBALO’’. Séur's ’ NT ‘BITS 

1802 i* ARE USED TO SELECT THE KERNEL,SUPERVISOR OR USER PAR/PDR'S. 

180 _ Te POUTINE TS ENTERED WITH LOC’ “VIRTI"’ CONTAINING THE 16-811 | 

1804 :* VIRTUAL ADDRESS. | 
*® 

1806 *: - REAEAEAARAEAEAKAARAAAEAAAEAEEAEKKAAEEAEARARAAEAAEAAEARAKAEEAAAEARARERAERRER 

1807 

1808 003426 012702 172340 FORMPA: MOV #KIPARO,R2 sLOAD ADDRESS OF FIRST KERNEL PAR IN R2 

1809 00 032 140000 177776 BIT #140000. PSw [IN USER MODE? 

1810 003440 001403 BEQ 1$ “BRANCH IF NO 

1811 003442 012702 177640 MOV #UIPARO,R2 “LOAD ADDRESS OF FIRST USER PAR IN R2 

1818 00 BR “BRANCH WHEN 

1813 003450 032737 040000 177776 1%: BIT #40000, PSw * IN SUPERVISOR MODE? 

1814 90 56 001 BEQ *BRANCH IF NO 

1815 003460 012702 172240 MOV #SIPARO.R2 “LOAD ADDRESS OF FIRST SUPERVISOR PAR IN R2 

1816 003464 01 001276 2s: MOV VIRT1,RO “LOAD VIRTUAL ADDR. (VBA) INTO RO 

1817 003470 072027 177764 ASH #-14,R0 “GET BITS <15:13> DOWN TO BITS <3:1> 

1818 00347% 042 177761 BIC #177761,RO “MASK OF ALL BITS BUT BITS <3:1> 

1819 003500 ADD RO ‘ADD OFFSET TO BASE PAR ADDRESS 

1820 003502 011200 MOV (R2) RO :GET BITS <15:00> FROM APPROPRIATE PAR 

1821 003504 01 MOV “COPY PAR BITS e1S< OOD INTO R2 . 

1 ¢ 00 506 tess 001276 001302 MOV VIRT1 PBALO “PUT VIRTUAL ADDR. IN LOC. ‘PBALO’’ 

1823 003514 042737 1 001302 BIC #160000 ,PBAL “CLEAR OFF BITS <15:13> OF ORIGINAL VBA 

1824 003522 072227 177766 ASH #12 Re “GET PAR <15:00> DOWN TO BITS <1:0> OF R2 

1825 0035 04 702 177776 BIC “777 4.R2 “CLEAR OFF ALL BITS BUT BITS <1:0> 

1826 003532 07 000006 ASH “SHIFT PAR<9:0> TO <15:6> OF RO 

1827 003536 042700 000077 BIC ark .RO “CLEAR BITS <5:0> OF RO 

1828 003542 060037 001302 ADD RO. PBALO “IN T, ADD VBA<12:0> TO PAR<9:0> 

1829 > (PAR<9:0> IN BITS <15:6> OF RO) 

1830 003546 005502 ADC R2 “ADD ANY CARRY TO R2 

1831 003550 010237 001304 MOV R2,PBAHI :PUT BITS <21: 165 OF PHYSICAL ADDR. IN PBAHI 

1832 003554 207 RTS PC “RETURN TO PROGRAM 
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PRE-DIAGNOSTIC SETUP 


1833 -SBTTL PRE-DIAGNOSTIC SETUP 


1834 Itt ttt iitiitititti tt ittiti iit it iii iii, 

1835 ; weet STARTING ADDRESS IS 200 ***** 

1836 FAA RE RAEAERERR EERE AREER EEAEREEREEREEE EERE REE ERERERERE ERS 
020000 -=2 

1838 020000 


START: 
-SBTTL INITIALIZE THE COMMON TAGS 
:: CLEAR THE COMMON TAGS (SCMTAG) AREA 


020000 012706 001100 MOV ASCMTAG, RE :sCLEAR LOCATION TO BE CLEARED 
020004 005026 CLR (R6) + s;CLEAR MEMORY LOCATION 
020006 022706 001140 CMP #SWR,RG6 : DONE? © 
020012 001374 BNE 6 :LOOP BACK IF NO 
0 14 012706 001100 A#STACK, SP SETUP THE STACK POINTER 
+s INITIALIZE A FEW VECTORS 

020020 012737 033020 000020 MOV ASSCOPE ,A@FIOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
0 012737 000340 000022 MOV #340, a#IOTVEC+2 ; :LEVEL 
020034 012737 033246 000030 MOV WSE a#EMTVEC : EMT VECTOR FOR ERROR ROUTINE 
020042 012737 000340 000032 MOV #340, aMEMTVEC+2 ;:LEV 
020050 012737 037144 000034 MOV HSTRAP ,aATRAPVEC : ; TRAP VECTOR FOR TRAP CALLS 
020056 012737 000340 000036 MOV #340, @#TRAPVEC +2; LEVE 

012737 037232 000024 MOV C POWER FAILURE VECTOR 
020072 012737 000340 000026 MOV #340, @#PWRVEC+2 ;:LEVEL 7 
020100 013737 032570 032562 MOV SENDCT.SEOPCT | ::SETUP END-OF-PROGRAM COUNTE 
020106 005037 001212 CLR SESCAPE 33CLEAR THE ESCAPE ON ERROR ADDRESS 
020112 112737 000001 001115 MOVB  #1,$ERMAX **ALLOW ONE ERROR PE 


R TES 
:3 INITIALIZE ie "'T-BIT'' TRAP VECTOR. THEN LOAD LOCATION "‘SRTRN'’, IN 
73 THE *‘END-OF-PASS'' (SEOP) ROUTINE, WITH A ‘RTI’ OR ‘RIT"’. 


020120 012737 033006 000014 MOV ASRTRN, a#TBITVEC 33 SET ‘T’* BIT VECTOR TO $RTRN 
020126 012737 000340 000016 MOV #340, @ATBITVEC+2 7 LEVEL 

020134 012737 000002 033006 MOV #RTI.SRTRN :SET $RTRN TO A RTI 

020142 012737 020170 000010 MOV #65$, @#RESVEC ETRY TO 20 A RTT 

020152 012746 020160 MOV #64$,-(SP) «CAND Pc 

020156 000006 RTT *: TRY THE RTT 

020160 012737 000006 033006 64$: MOV #RTT. SRTRN *:RTT IS LEGAL--SET $RTRN TO A RIT 
020166 000402 BR 66$ 

020170 706 000010 65$: ADD #10,SP z7RTT ILLEGAL~-CLEAN OFF THE STACK 
020174 012737 000012 000010 66$: MOV #RESVEC+2, @WRESVEC ;:RESTORE TRAP CATCHER 

020202 001346 CLR $TBIT LEAR ''T'’ BIT SWITCH 


0050 L 
012737 020206 001106 MOV #.,SLPADR : INITIALIZE THE LOOP ADDRESS FOR SCOPE 
THE ERROR LOOP ADDRESS 


a #. SLPERR 3SE L 
:zSIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
7;EQUAL TO A *~1°", SETUP FOR A SOFTWARE SWITCH REGISTER. 
VE ERROR VECTOR 


020222 013746 000004 MOV @FERRVEC rtSP) :2SA 

020226 012737 020262 000004 MOV #67$,aHERRVEC ::SET UP ERROR VECTOR 

020234 012737 177570 001140 MOV #DSWR, SWR ;;SETUP FOR A HARDWARE SWICH REGISTER 

020242 012737 177570 001142 MOV ADDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 

020250 022777 177777 160662 CMP #-1,aSWR >: TRY TO REFERENCE HARDWARE SWR 

020256 001012 BNE 69$ :3BRANCH IF NO TIMEOUT TRAP OCCURRED 
| ;ZAND THE HARDWARE SWR IS NOT = ~1 

020260 000403 BR 68 : =BRANCH IF NO TIMEOUT 

020262 012716 020270 67$: ot #68$, (SP) *:SET UP FOR TRAP RETURN 

020270 012 $ 000176 001140 68%: MOV #SWREG, SWR ::POINT TO SOFTWARE SWR 

020276 012737 000174 001142 MOV #DISPREG,DISPLA 

020 012637 000004 69$: MOV (SP) +, a#ERRVEC : :RESTORE ERROR VECTOR 


020310 005037 001232 CLR SPASS :CLEAR PASS COUNT 


EE 
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INITIALIZE THE COMMON TAGS 


020314 132737 000200 001245 BITB #APTSIZE.SENVM ;; TEST USER SIZE UNDER APT 
020322 001403 BEQ SE NON-APT SWITCH 
9203 : 012737 001246 001140 _ ASSWREG, SWR *:NO,USE APT SWITCH REGISTER 
1839 _SBTTL TYPE PROGRAM NAME 
>: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
020332 005227 177777 INC #-1 :iFIRST TIME? 
020336 001 71$ 3 CH IF NO 
020340 022737 032742 000042 CMP ASENDAD,@442 ;::ACT-11? 
020 1442 BEQ 71$ ; BRANCH IF YES 
020350 104401 020416 YPE ,72$ YPE ASCIZ STRING 
.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
020354 005737 000042 TST a442 WE RUNNING UNDER XXDP/ACT? 
020 001012 BNE 73$ «BRANCH IF YES 
020 123727 001244 000001 CMPB  =s- SENN, #1 ;7ARE WE RUNNING UNDER APT? 
020370 001406 BEQ :BRANCH IF YES 
020372 023727 001140 000176 CMP SWRA SWREG 33 SOF TWARE SWITCH REG SELECTED? 
020400 001005 BNE 74$ F 
020402 104407 GTSwR «GET SOF T-SUR SETTINGS 
020404 03 BR 74$ 
020406 112737 000001 001134 738: MOVB  #1,$AUTOB ::SET AUTO-MODE INDICATOR 
020414 000417 71$ ::GET OVER THE ASCIZ 
-72$: .ASCIZ <CRLF>#CKKTAB 11/44 MEM MGMT PRT A#<CRLF> 
020454 o1$: 
1840 020454 LOOP: 
1841 020454 012706 001100 MOV #STACK,KSP ; INITIALIZE THE STACK POINTER 
1842 020460 012737 9003232 000004 MOV ATIMERR,ERRVEC :LOAD CPU SERVICE ROUTINE INTO TRAP VECTOR 
1843 020466 012737 000340 000006 MOV #340, ERRVEC+2 ;SET NEW PS TO PRIORITY LEVEL 7-KERNEL 
1844 020474 012737 003330 000250 MOV _MAVE MEMORY MANAGENT ROUTINE INTO VECTOR 
1845 020502 012737 000340 000252 MOV #3460 ,MMVEC+2 “SET NEW PS TO PRIORITY LEVEL 7-KERNEL 
1846 020510 012700 177777 MOV #-1,RO0 =PUT = O RO TO INITIALIZE FLAGS 
1847 020514 010037 003234 MOV RO, TIMFLG TNITIALIZE OPU E ERROR FLAG 
1848 020520 010037 003332 MOV LMGMF LG * INITIALIZE MEMORY MANAGEMENT ERROR FLAG 
1849 020524 012737 000340 001272 MOV #340, TBITPS * INITIALIZE LOG THAT HOLDS T-BIT PSw 
1850 020532 005037 177572 CLR “BE SURE MEM. MGMT IS OFF TO START WITH 
1851 020536 005037 172516 CLR =MAKE SURE ALL MAPPING IS OFF 
185¢ 020542 005037 177766 CLR CPUERR *MAKE SURE CPU ERROR REG. IS CLEAR 
1853 020 052737 200 002512 BIS #B1T7,$KT11 “SET M.M. FLAG FOR SIZING ROUTINE 
1854 020554 737 002454 JSR PC, $SIZE “RUN SIZING ROUTINE 
1855 020560 005037 177766 CLR CPUERR “CLEAR CPU ERROR REG. AFTER SIZING 


ee eee oe —_—— 
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ADDRESS AND DATA PATHS TESTS 
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-SBTTL ADDRESS AND DATA PATHS TESTS 


TAR PEPE SSASALSLALESL EASELS ER REAR RELA RE RRR RRR RRR ARRAS ARRAS A RASA RARE SSDS 


: GROUP 1 ADDRESS AND DATA PATHS TESTS 


SS SRAAAAEAAAAAAAARAAAAAAAEAEAAAARAAARAAAEAAAAAAAAEAAAAAERAARAARETEREE 


ee ee 


—- <a 


ae ee — - —— — —_— a 
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TA SEQUENCE 44 
TEST # 1 = PSwW PRIORITY “BIT TEST 


1866 .SBTTL TEST # 1 ~ PSW PRIORITY BIT TEST 
“Sea aKaAaeReEAaEaEKeeeEEeeEaeaaeEKaaKaaRKAREKARAERERARARRRERERAREARERE EEE 
<STEST 1 PSW PRIORITY BIT TEST 
“? 
:s THIS TEST READS AND WRITES THE PROCESSOR STATUS WORD <7:5> ‘PRIORITY BITS’’ 
* TO SEE THAT SOME OF THE BASIC ‘DATA PATH'’ LOGIC IS WORKING. 
** 
ett iiii iti itt 
020564 000004 TST1: SC 
1867 020 012737 020576 001110 1S: MOV #2$,$LPERR :SET LOOP ON ERROR POINTER TO 2$ 
1868 020574 005000 CLR RO : INITIALIZE ERO WITH PRIORI TY=0 DATA 
1869 020576 005001 2$ CLR R1 =PREPARE R1 TO ACCEPT DATA READ 
1870 020600 010037 177776 MOV RO.PSW “WRITE PRIORITY BITS IN THE PSW 
1871 020604 013701 177776 MOV PSW,R1 *READ BACK THE LOW BYTE OF PSW 
1872 020610 042701 177437 BIC #177437,R1 =MASK OFF EVERYTHING EXCEPT PRIORITY BITS 
020614 0 CMP RO,R1 “WAS CORRECT PRIORITY SET IN THE PSwW? 
1874 020616 001401 BEQ 3$ “BRANCH IF YES 
020620 10400 ERROR +3 :PRIORITY BITS SET WRONG IN PSW 
1 ;FOR TIGHTER SCOPE LOOP 
1877 :REPLACE ERROR CALL WITH 
1878 "BR 2$'' = 000770 
1879 020622 062700 000040 3$: ADD #60.RO *CHANGE DATA TO NEXT PRIORITY 
1880 020626 022700 000400 CMP #400,RO “HAVE PRIORITIES 0-7 ALL BEEN CHECKED? 
1881 020632 001361 BNE “BRANCH IF NO 
1882 020634 012737 020566 001110 MOV #1$,$LPERR ;RESET LOOP ON ERROR POINTER TO 1$ 


SSSRSES sees F esses 
ooo Oo oO 
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020654 001710 


177776 


177776 


010000 


020644 
177776 
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.SBTTL TEST # 2 - PSW MODE BIT TEST 


© + EEA AEAAEAEEEEAEEAAAAAAAEAAEAAAAAAAAAAEAAAAAEAAAREEEAEKERAAAEREREE 


PSW MODE BIT TEST 


s*TEST 2 


23: 


3$: 


THIS TEST READS AND WRITE 
TO FURTHER CHECK THE BASIC CPU DATA PATHS 


TRAAREAASASLAZASZASLALAL ELA LALAL EL AREA RAS ALA REAR ARAL ARA RASA ARAL SSS SO 


3* 
;* 
ite 
TST2: 
1$: 


acs -SLPERR 


#10000 .RO 
#1$,$LPERR 
PSW 


S THE PROCESSOR STATUS WORD <15:12> ‘MODE BITS"’ 


;SET LOOP ON ERROR POINTER TO e$ 

: INITIALIZE fe 5 a MODE BITS = 0000 

: INITIALIZE P 

;BIT SET THE Sl W MODE BITS WITH A. 

;READ BACK THE CONTENTS OF THE P 

MASK OFF table a EXCEPT THE hoe BITS 
;WERE THE MODE BITS SET CORRECTL 

BRANCH IF YES 

;CLEAR PSW FOR ERROR REPORT 


:MODE BITS SET WRONG IN PSW 


sREPLACE ERROR CALL WITH 
;' BR = 000763 


;CHANGE MODE BIT DAT 

sBRANCH IF STILL MORE COMBINATIONS 
;RESET LOOP ON ERROR POINTER TO 1$ 
:RESET PSW BEFORE LEAVING 


— — — 


1913 


1 020 
1933 021024 
1934 021030 
1935 021032 
1936 021034 
1937 021040 
1938 

1939 

1940 

1941 021042 


012737 


CKKTABO 11/44 MEM MGMT PRT A 
TEST # 3 - BYTE ADDRESSING TEST FOR P 


020736 
177776 


177776 


021004 
177776 
000340 
177776 
177776 
007437 


177776 


001110 


001110 
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SEQUENCE 


- SBTTL TEST # 3 - BYTE ADDRESSING TEST FOR PSW 


‘TARAS ERASASASZLARSL ESE EAA AEA RELA RRR RASA RRR RR RR RRR RRA RR AAR ASS SS S| 


BYTE ADDRESSING TEST FOR PSW 


; *TEST 3 


i y——4*> Se Se Be te Be 


3$: 
4$: 


020730 001110 5$: 


AU senee 
se te 
Ww 


pi cane Y WRITES THE HIGH AND LOW BYTES OF THE PROCESSOR STATUS WORD 


THEM BACK TO BE SURE 


TEN INDEPENDENTLY. 


THEY CAN BE WRIT 
THIS CHECKS THE PSW PORTION OF THE ADDRESS DETECTION LOGIC. 


#2$,$LPERR 
PSW 


#360,R0 
RO,PSwW+1 


PSW.R1 
#007437.R1 
RO 

RO,R1 

3$ 


PSW 
+5 


#4$ ,$LPERR 
PSW 


#1$,SLPERR 


PUT 
[WRITE THE HIGH BY 


TARE AAASSSASALALALALLASAL ALAS ELAR AREER ARERR ARERR RRR RRR ASA LADS SD A SO | 


:SET LOOP ON ERROR POINTER TO 2$ 
;CLEAR THE PSW 

THE HIGH BYTE DATA INTO RO 
TE OF THE PSW 


;READ BACK THE ENTIRE PSW 
OFF THE T & CC BITS 


:GET DATA WRITTEN IN HIGH BYTE OF RO 
WAS cH IF YES TO CORRECTLY 


CLEAR 


PSW FOR ERROR REPORT 
LOW BYTE EFFECTED BY WRITE TO HIGH BYTE OF PSW 
;FOR TIGHTER SCOPE LOOP 

;REPLACE ERROR CALL WITH 

:'BR 2$"' = 0007 


:SET LOOP ON ERROR POINTER TO 4$ 
2 a THE PSW 

T THE LOW BYTE DATA INTO RO 
“WRITE THE LOW BYTE OF THE PSW 
:READ BACK THE ENTIRE PSW 
SMASK OFF THE T&CC BITS 

sWAS PSW gh TO CORRECTLY 


:BRANCH IF YE 

:CLEAR PSW FOR ERROR REPORT 

sHIGH BYTE EFFECTED BY WRITE TO LOW BYTE OF PSW 
-FOR TIGHTER SCOPE LOOP 


q ERROR CALL WITH 
“RESET LOOP ON ERROR POINTER TO 15 


46 
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TEST # 4 ~ TEST AND SETUP OF STACK POINTERS - 


1953 _SBITL TEST # 4 - TEST AND SETUP OF STACK POINTERS 
£ LARA AAAAAAAAAAAAAAAEAAAA AAA AARAARAARKARAAAARAAERAAAEEA AAR AEE ES 
“*TEST 4 TEST AND SETUP OF STACK POINTERS 
ce 
ti THIS TEST SETS THE USER AND KERNEL STACK POINTERS FOR THE 
:* REST OF THE PROGRAM AND MAKES SURE THEY ARE INDEPENDENT OF 
:* EACH OTHER. KERNEL R6 IS SET TO 1100, SUPERVISOR R6 IS SET TO 700, 
:* USER R6 IS SET TO 600, THEN KERNEL R6 IS READ TO BE SURE 
:* IT'S STILL 1100. THE SEC OND PART OF THE TEST CHECKS TO SEE 
:* THAT THE ILLEGAL MODE(''10'') STACK POINTER IS MAPPED TO THE 
:* USER STACK POINTER, WITH MEMORY MANAGEMENT OFF 
*"* 
 sseeueasaveveacoeeeeserereoserestssneenneoneeneneteseseeceseets 
021050 TST SCOPE 
1954 021052 005037 177572 CLR MRO ;MAKE SURE M.M. IS OFF 
1955 021056 005037 177776 CLR PSW TO KERNEL MOD 
1956 021062 012706 001100 MOV #KERSTK.KSP “SET KERNEL STACK POINTER TO 1100 
1957 021066 012737 040000 177776 MOV #40000, PSw *GO TO SUPERVISOR MODE 
1958 021074 012706 000700 MOV #SUPSTK, SSP ;SET_ SUPERVISOR STACK POINTER TO 700 
1959 021100 012737 140000 177776 MOV #140000,PSW 0 USER 
1960 021106 012706 MOV #USESTK.USP “SET USER STACK POINTER TO 600 
1961 021112 005037 177776 CLR PSW “BACK TO KERNEL MODE 
1962 021116 022706 001100 CMP #KERSTK,KSP ‘IS KERNEL R6 STILL 1100? 
1963 021122 BR 1$ “BRANCH TO NEXT PART OF TEST 
1964 021124 012700 001100 MOV #KERSTK,RO “SAVE DATA WRITTEN FOR ERROR 
1965 021130 010601 MOV KSP,R1 “SAVE DATA READ AFTER USER R6 WAS WRITTEN 
1966 021132 104006 ERROR +6 “KERNEL R6& CHANGED BY WRITING USER R6 
1967 “FOR TIGHTER SCOPE LOOP 
1968 ; REPLACE ERROR CALL WITH 
1970 021134 012737 021134 001110 1S: MOV #1$,$LPERR “SET LOOP ON ERROR POINTER TO 1$ 
1971 021142 005037 177776 CLR PSW :GO TO KERNAL MODE 
1972 021146 012746 177777 MOV #~1,~(KSP) “PUSH A -1 ONTO STACK 
021152 012737 177776 MOV #40000, PSW ;G0_TO SUPERVISOR MODE 
1974 021160 012746 1 MOV #1,-(SSP) A 1 ONTO THE STACK 
1975 021164 012737 140000 177776 MOV 140000, PSw “60 TO AUSER MODE 
1976 021172 005046 CLR -(USP) *PUSH A ZERO ONTO THE STACK 
1977 021174 012737 100000 177776 MOV #100000, PSW “PUT ILLEGAL IN PSW 
1978 021202 011 MOV (SP) ,RO *PUT TOP OF STACK INTO RO 
1979 021204 001401 BEQ “WE'RE OK-GO TO NEXT TEST, JUMP OVER ERROR PRINT OUT 
021206 104 ERROR +40 “ILLEGAL MODE NOT MAPPED TO USER MODE 
021210 005037 177776 PSW “RESET PSW TO KERNEL BEFORE LEAVING 


PESBSSRSRSRERES 


y edaanenedebbeesaasesonneeedenasenssbanteanseonbaenesenneetees 


® 
:* THE NEXT SEVEN (7) TESTS WILL TRY TO ADDRESS ALL OF THE 
: MEMORY MANAGEMENT REGISTERS (SRO->SR3; I@D SPACE KERNEL, 
:* SUPERVISOR & USER PAR/PDR'S). 
: EVERY TIME A REGISTER TIMES QUT ITS ADDRESS WILL BE REPORTED. 
i AT THE END OF EACH TEST A SUMMARY OF THE ADDRESSES THAT TIMED, : 
:* OUT DURING THAT TEST IS GIVEN. THE RESULTS OF ‘‘AND-ING'’ AND 'OR-ING 
:* THEIR ADDRESSES IS GIVEN TO SHOW WHICH ADDRESS LINES MAY BE 
:* STUCK AT 0 OR 1. THE PAR/PDR ADDRESS AND KT MUX'S ARE THE 
:* THINGS BEING CHECKED. 
*® 


RRA AREA EEE 


ee ee te eee 


AA 
ee ee 
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ST # 5 = SRO,SR1,SR2,SR35 TIMEOUT TEST 


2002 .SBTTL TEST # 5 ~ SRO,SR1,SR2,SR3 TIMEOUT TEST 
PETTITT TILL L TLL L LL ttt 
<STEST 5 SRO.SR1,SR2.SR3 TIMEOUT TEST 
** 
_ THIS TEST ADDRESSES THE MEMORY MANAGEMENT STATUS REGISTERS 
:* ILL BE WRITTEN OR READ FROM THESE REGISTERS 
:* IN LATER TESTS, THIS TEST JUST CHECKS FOR A RESPONSE. 
SICA IIO OIE IOOISI SIERO IIIOIIOIIUOII IO nt iin tt ttt tits 
021214 TST5: SCOPE 
2003 021216 005037 177776 CLR :MAKE SURE KERNAL MODE IS SELECTED 
2004 021222 012737 021264 001110 1$ MOV #33. SLPERR *SET LOOP ON ERROR POINTER TO 2$ 
2005 021230 012737 021330 000004 MOV #6$.4 = SET TIMEOUT | VECTOR TO 6$ 
2006 021236 12700 177572 MOV #SRO,RO “LOAD RO WITH ADDRESS OF FIRST REG. 
2007 021242 012701 3 MOV #3,R1 [LOAD R1 WITH THE LOOP COUNT 
2008 021246 012737 177777 001320 MOV #-1 , ADRAND INITIALIZE ‘‘AND'* OF ADDRS. LOC. 
2009 021254 005037 001316 CLR ADDROR INITIALIZE ' ADDRS. LOC. 
2010 021260 005037 001274 CLR TONUM * INITIALIZE ‘‘TIMEOUTS’’ COUNTER 
2011 021264 005710 2$ TST (RO) “TRY ADDRESSING A STATUS REGISTER 
2012 -IF IT TIMES OUT GO TO 6$ 
2013 021266 062700 000002 3$ ADD #2,R0 *PUT NEXT ADDRESS IN RO 
2014 021272 077104 S0B R1,2$ ;LOOP BACK TO 2$ UNTIL ALL TESTED 
2015 021274 012700 172516 MOV #SR3,RO “LOAD RO WITH THE ADDRESS OF SR3 
2016 021300 005710 TST (RO) :TRY ADDRESSING SR3 
2017 021302 012737 021222 001110 4S: MOV #1$,$LPERR “RESET LOOP ON ERROR POINTER TO 1$ 
2018 021310 005737 001274 TST TONUM “DID ANY OF THE STATUS REG.S TIMEOUT? 
2019 021314 001401 BEQ S$ “BRANCH IF NO 
2020 021316 104010 . ERROR +10 > SUMMARY OF STATUS REG. TIMEOUTS 
2021 021320 012737 003232 000004 5S: MOV #TIMERR,4 *REST CPU TRAP ROUTINE ADDRESS 
2022 021326 17 BR TST6 ::GO TO NEXT , - 
2023 021330 062706 000004 6$: ADD #4 ,KSP =CLEAN UP THE STA 
2024 021334 104007 ERROR +7 :ONE OF T TATUS REGS. TIMED OUT 
2025 :FOR TIGHTER SCOPE L 
sRE ACE, RA gael ITH 
2028 021336 010002 MOV RO,R2 LOAD THE ADDRESS THAT TIMED OUT INTO R2 
2029 021340 050237 001316 BIS R2,ADDROR ;"OR'' IT WITH OTHER ADDRS. THAT TIMED OUT 
2030 021344 005102 com R2 :""AND'’ IT WITH OTHER ADDRS. THAT TIMED OUT 
2031 021346 040237 001320 BIC R2,ADRAND 
2032 021352 005237 001274 INC TONUM ; INCREMENT THE TIMEOUT COUNTER 
2033 021356 032700 172516 BIT #SR3,RO “TEST FOR LAST REGISTER 
2034 021362 001347 BNE 4$ *SR3 IS LAST:GO TO FINAL ERROR REPORT 
2035 021364 000740 BR 3$ “BRANCH BACK TO TEST THE NEXT ADDR. 


a 
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TEST # 6 ~ KERNEL 18D SPACE PAR*S TIMEOUT TEST 
2039 -SBTTL TEST # 6 — KERNEL I&D SPACE PAR'S TIMEOUT TEST 
+ RRRERAAARA AERA AAA EATER AAA AAA RAAT AAAR RATA TARA RATE 
:*TEST 6 KERNEL I8D SPACE PAR*S TIMEOUT TEST 
38 THIS TEST ADDRESSES Ln SIXTEEN (16) 4) PAGE ADDRESS 
s* REGISTERS (KIPARO-KIPAR7 AND KDP ) 
3* AND CHECKS THAT SOMETHING RESPONDS TO THEIR ADDRESSES. 
SERRE RARER ARERR AAR EERE AAA EAAREAERAR EERE REA 
021366 000004 TST6: SCOPE 
2040 021370 004737 003024 1$: SR PC, TIMTST :GO DO THE TEST ON PAGE OF THIS LISTING 
2041 021374 172340 -WORD KIPARO ;PARAMETER USED FOR SUBROUTINE 
og] 021376 104007 ERROR +7 es oy IS HERE FOR 1ST ERROR - ONE OF THE REGISTERS 
204 TIMED OUT. FOR TIGHTER SCOPE LOOP, REPLACE THE 
2044 :"MOV #1,$TMP4* INSTRUCTION IN THE SUBROUTINE WITH 000756 
2045 071400 000773 BR 1$ [RETURN TO TEST 
2046 021402 104010 ERROR +10 [RETURN IS HERE FOR 2ND ERROR - SUMMARY OF REG TIMEOUTS 


‘ ; 
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TEST # 7 = KERNEL I&D SPACE PDR‘S TIMEOUT TEST 


2050 .SBTTL TEST # 7 — KERNEL I8D SPACE PDR'S TIMEOUT TEST 
5 ene eeenan ena eee nre Sa aes eens 
*TEST 7 KERNEL I8D SPACE PDR‘*S TIMEOUT TEST 
:* THIS TEST ADDRESSES THE SIXTEEN (16) KERNEL PAGE DFSCRIPTOR 
s@ REGISTERS (KIPARO-KIPAR7 AND KDPARO-KDPAR7) 
;* AND CHECKS THAT SOMETHING RESPONDS TO THEIR ADDRESSES. 
ss Seeennnnennenenenentteeeettntenenananaagaegenaanenetnenseseees 
021404 000004 TST SCOPE 
2051 021406 004737 003024 1$: JSR PC, TIMTST :GO DO THE TEST ON PAGE OF THIS LISTING 
2052 021412 172300 -WORD KIPDRO sPARAMETER USED FOR SUBROUTINE 
20535 021414 104007 ERROR +7 ;RETURN IS HERE FOR 1ST ERROR - ONE OF THE REGISTERS 
2054 ;TIMED OUT. FOR TIHGTER SCOPE LOOP, REPLACE THE 
2055 :"MOV #1,$TMP4' INSTRUCTION IN THE SUBROUTINE WITH 000756 
2056 021416 000773 BR 1$ [RETURN TO TEST 


14 
2057 021420 104010 ERROR +10 :RETURN IS HERE FOR 2ND ERROR - SUMMARY OF REG TIMEOUTS 


Mm 4 
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TEST # 10 - SUPERVISOR I8D SPACE PAR*S TIMEOUT TEST 


2061 .SBTTL TEST # 10 ~ SUPERVISOR I@D SPACE PAR'S TIMEOUT TEST 
{EAA AAAAEAEEREREEAEEEERAERAEAARERAERERAEAEARERAEAERRARRERERREREERAE EH 
[*TEST 10 SUPERVISOR I&D SPACE PAR'S TIMEOUT TEST 
- THIS TEST ADDRESSES THE SIXTEEN (16) SUPERVISOR PAGE ADDRESS 
zs REGISTERS (SIPARO-SIPAR7 AND SDPARO-SDPAR7) 
;* AND CHECKS THAT SOMETHING RESPONDS TO THEIR ADDRESSES. 
Ce REA AAAEKAEEAAAAAAAEERAEAAKAAAAEKRAEEAAAREEREREARARAEREEEE 
021422 000004 TST10: SCOPE 
2062 021424 004737 003024 1$: JSR PC, TIMTST :GO DO THE TEST ON PAGE OF THIS LISTING 
021430 172240 .WORD  SIPARO [PARAMETER USED FOR SUBROUTINE 
2064 021432 104007 ERROR +7 :RETURN IS HERE FOR 1ST ERROR - ONE OF THE REGISTERS 
2065 “TIMED OUT. FOR TIHGTER SCOPE LOOP, REPLACE THE 
2066 :"MOV #1 SIME INSTRUCTION IN THE SUBROUTINE WITH 000756 
2067 021434 000773 BR 1$ “RETURN TO TEST 
2068 021436 104010 ERROR +10 “RETURN IS HERE FOR 2ND ERROR - SUMMARY OF REG TIMEOUTS 


oe. 
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TEST # 11 = SUPERVI 


2072 


2073 
2074 0 
2075 021450 
207 


20 
2078 021452 
2079 021454 


021440 
021442 
te 


» 


T PRT A 


MACRO M1113 ae 13:32 PAGE ts“ 


1D SPACE PDR*S TIMEOUT T 
-SBTTL TEST # 11 - SUPERVISOR I&D SPACE PDR'S TIMEOUT TEST 


2s REA AAEAEAAEAEEEEEAAEEAEEEAAAAAEAAEAEAEKEAAEAEEEKAAEKAKAEKEAEAEEKHEEE 


003024 


SEQUENCE 


:*TEST " SUPERVISOR I&D SPACE PDR'*S TIMEOUT TEST 
zs THIS TEST ADDRESSES THE SIXTEEN (16) SUPERVISOR PAGE DESCRIPTOR 
3@ REGISTERS (SIPARO-SIPAR7 AND SDPARO-SDPAR7) 
3@ AND CHECKS THAT SOMETHING RESPONDS TO THEIR ADDRESSES. 
+ RRR AERA AERE RARER EA EE AERA R AAA RA REA RE RARER ERR ER ERE EEE EEE 
TST11: SCOPE 
1$: JSR PC, TIMTST :GO DO THE TEST ON PAGE OF THIS LISTING 

-WORD SIPDRO :PARAMETER USED FOR SUBROUTINE 

ERROR +7 RETURN IS HERE FOR 1 = OF THE REGISTERS 

:TIMED OUT. FOR TIGHTER SCOPE LOOP, RE 
‘MOV #1,$TMP4’ INSTRUCTION IN THE SUBROUTINE WITH 000756 
1$ ;RETURN TO TEST 
ERROR +10 :RETURN IS HERE FOR 2ND ERROR - SUMMARY OF REG TIMEOUTS 


~ <«f 


8B 5 
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TEST # 12 = USER I1&D SPACE PAR" S TIMEOUT TEST 





2083 -SBTTL TEST # 12 ~ USER I8D SPACE PAR'S TIMEOUT TEST 
STEcT 12s AER IAD SPACE PeR’S Tia tet 
SSTEST FF USER I8D SPACE PAR'S TIMEOUT TEST | 
:* THIS TEST ADDRESSES THE SIXTEEN (16) USER PAGE ADDRESS : 
zs REGISTERS (UIPARO-UIPAR7 AND SDPARO-UDPAR7 | 
:* AND CHECKS THAT SOMETHING RESPONDS TO THEIR ADDRESSES. | 
22 PO BF Be eB he 
1456 TST12: SCOPE 
021460 004737 003024 1$: JSR —s- PC, TIMTST :GO DO THE TEST ON PAGE OF THIS LISTING 
5 021464 17764 .WORD UIPARO :PARAMETER USED FOR SUBROUTINE 
021466 104007 ERROR +7 RETURN IS HERE FOR 1ST ERROR - ONE OF THE REGISTERS 
;TIMED QUT. FOR TIHGTER SCOPE LOOP, REPLAC 
2088 #1,$TMP4' INSTRUCTION IN THE SUBROUTINE WITH 000756 
921470 000773 BR 1$ “RETURN TO TEST 
2090 021472 104010 ERROR +10 RETURN IS HERE FOR 2ND ERROR - SUMMARY OF REG TIMEOUTS 


-. 
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T # 13 - USER 18D SPACE PDR*S TIMEQUT TEST 


2094 .SBTTL TEST # 13 - USER 18D SPACE PDR'S TIMEOUT TEST 
cerecT 1% USER 18D SPACE POR'S Ticcul TesT. 
:STEST 13 USER ID SPACE PDR'S TIMEOUT 
THIS TEST ADDRESSES THE SIXTEEN. (16) USER PAGE DESCRIPTOR 
REGISTERS (UIPARO-UIPAR7 AND UDP AR7) 
AND CHECKS THAT SOMETHING RESPONDS TO THEIR ADDRESSES. 


ePREBRASSA£ALAALELELAAA AAA AAA RAR ALARA ARAL RAR AAA AAA AAAS SS 


+f 
38 
7* 
21474 000004 rgr13: SCOPE 


0 
2095 021476 004737 003024 JSR PC, TIMTST ;GO DO THE TEST ON PAGE OF THIS LISTING 
2096 021502 177600 -WORD UIPDRO [PARAMETER USED 4 SUBROUT INE 
2097 021504 104007 ERROR +7 oO IS HERE FOR 1ST ERROR - ONE OF THE REGISTERS 
2098 TIMED OUT. FOR TIGHTER SCOPE LOOP, REPLAC 
2099 :"MOV #2,$TMP4' INSTRUCTION IN THE SUBROUTINE WITH 000756 


2100 021506 000773 BR 1$ [RETURN TO TEST 
2101 021510 104010 ERROR +10 ;RETURN IS HERE FOR 2ND ERROR - SUMMARY OF REG TIMEOUTS 


ae oe ee 


Fre pee a 
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5 
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TEST # 14 ~ MMRO(15:135) B 


BIT NEST & MARZ TEST 


2114 .SBTTL TEST # 14 ~ MMRO(15:13) BIT TEST & MMR2 TEST 
SEAR EREAEEEEEAARAAAKAEAERAAAE AREER AAERAREEARRERE EHS 
<STEST 14 mmRO(15:13) BIT TEST & MMR2 TEST 
**® 
:* THIS TEST CHECKS BITS <15: 13> OF MEMORY MANAGEMENT 
:* REGISTER 0 TO SEE THAT EACH CAN BE SET AND CLEARED 
Se HAT ESET'’ WILL CLEAR ALL OF THEM. A TEST 
:* OF THESE THREE ERROR BITS CHECKS PART OF SRO. T 
is SRO MUX AND THE KTMUX. THE REST OF THE BITS IN 
:* SRO WILL BE CHECKED LATER. 
ie ALSO CHECK THAT SR2 IS TRACKING WITH MEM. MGMT. 
:* OFF BUT LOCKS UP WHEN ANY OF SRO ERROR BITS SET. 
** 
*: : PRR RARERALELALELALELLALAALAAAAALALALALALAAALABADAAAASLARAAALALALASA ASA SS | 
021512 1ST14: SCOPE 
2115 021514 012700 177572 1$: MOV #SRO.RO LOAD ADDRESS OF SRO INTO 
2116 021520 012710 160000 MOV #160000,(RO)  :SET BITS <15:13> IN SRO (ERROR BITS) 
2117 021524 g RESET ‘ISSUE AND ‘‘INIT’’ SIGNAL 
2118 021526 011001 MOV (RO) .R1 “READ SRO INTO R1 TO SEE IF CLEAR 
2119 021530 001404 BEQ 2$ : H IF SRO<15:13> CLEARED BY ‘‘INIT’’ 
2120 021532 104011 ERROR +11 =SRO<15:13> NOT CLEARED BY A 'RESET'' 
2121 *FOR TIGHTER SCOPE L 
2122 ZREPLACE ERROR CALL WITH 
2123 :*BR 1$"° = 000770 
2124 021534 012737 021542 001110 MOV #2$,$LPERR “SET LOOP ON ERROR POINTER TO 2$ 
3125 021542 013737 177576 001270 28: MOV 2, WASSR2 ‘TREAD CONTENTS OF SR2 
2126 021550 012701 021542 MOV #2$,R1 LOAD EXPECTED CONTENTS INTO R1 
2127 021554 020137 001270 CMP R1,WASSR2 -:1S SR2 TRACKING? 
2128 021 001401 BEQ 3$ = BRANCH IF VES 
2129 021562 104021 ERROR +21 *SR2 NOT ‘“TRACKING’’ VIRTUAL ADDRESSES 
2130 “FOR TIGHTER SCOPE LOOP 
2131 : REPLACE ERROR CALL WITH 
2132 :"BR 23° = 000767 
3133 021564 012737 021602 001110 38: MOV #4$, SLPERR *SET LOOP ON ERROR POINTER TO 4$ 
2134 021572 012701 100000 MOV #81T15,R1 *PUT DATA TO BE WRITTEN IN R1 
2135 021576 012703 000003 MOV #3,R3 :SETUP R3 AS A LOOP COUNTER 
2136 021602 005010 4$: CLR (RO) “CLEAR SRO 
2137 021604 050110 5$: BIS R1. (RO) *SET ONE OF THE ERROR BITS IN SRO 
2138 021606 011002 MOV (RO) .R2 “READ SRO INTO R 
2139 021610 020102 CMP R1,R2 -DID RIGHT ERROR BIT GET SET? 
2140 021612 001401 BEQ 6$ “BRANCH IF YE 
2141 021614 104012 ERROR +12 “BIT SET WRONG IN SRO 
2142 “FOR TIGHTER SCOPE LOOP 
gi43 RE ACE, E L WITH 
2145 021616 012704 021604 6S: MOV #5$,R “LOAD EXPECTED CONTENTS OF SR2 IN RG 
2146 021622 013737 177576 001270 MOV SR2, GAssR2 : SR2 
2147 021630 020437 001270 CMP R4,WASSR2 :DID SR2 LOCK UP WHEN ERROR 
2148 “BIT SET IN SR1? 
2149 021634 0014 401 Q 7$ “BRANCH IF YES 
2150 021636 104027 ERROR +27 >SR2 DID NOT LOCK UP 
2151 “FOR TIGHTER SCOPE LOOP 
3152 : REPLACE ERROR CALL WITH 
315 $"' = 000761 
154 021640 7$: ROR “CHANGE DATA TO CHECK NEXT ERROR BIT 
2155 021642 077321 SOB RS 4$ “LOOP BACK UNTIL <15: 13> ALL TESTED 
2156 021644 005010 CLR (RO) “CLEAR SRO BEFORE LEAVING 
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2157 021646 012737 021514 001110 MOV #1$,$LPERR ;RESET LOOP ON ERROR POINTER TO 1$ 


<eee ee a eee = OC  - 
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TEST # 15 = SRO & PSwW DUAL ADDRESSING TEST 


2167 .SBTTL TEST # 15 ~ SRO & PSW DUAL ADDRESSING TEST 
TAPE RERBASAAAALAASLALESALAAAL ASAE LAR RAR ARE RRA RAR A RAR RA RA RRR RASS DS 
*TEST 15 SRO & PSW DUAL ADDRESSING TEST 
*® 
:* THIS TEST CHECKS MORE OF THE ADLPESS DETECTION LOGIC BY 
:* VERIFYING THAT STATUS REGISTER 0 IS NOT EFFECTED BY WRITING 
ie TO THE PSW AND THAT THE LOW BYTE OF STATUS REGISTER 0 
:* IS NOT EFFECTED BY WRITING TO ITS HIGH BYTE. THIS IS TO 
:* SEE IF ADJACENT OUTPUTS ARE SHORTED ON THE ADDRESS DET. LOGIC. 
-* 
+ RRR REAR EERE AEEE REAR RRER ERE E REE eee 
021654 000004 TST15: SCOPE 
2168 021656 005037 177776 1$: CLR = PSW ;CLEAR THE PSW 
2169 021662 005037 177572 CLR — SRO :CLEAR STATUS REGISTER 0 
2170 021666 012737 000340 177776 MOV  #340,PSW :SET PRIORITY 7 IN LOW BYTE OF PSW 
2171 021674 013700 177572 MOV _— SRO, RO ;READ STATUS REGISTER 0 
2172 021700 001401 BEQ = S$ , BRANCH IF IT WAS STILL 0 
2173 021702 104013 ERROR +13 :SRO EFFECTED BY A WRITE TO THE PSwW 
2174 :FOR TIGHTER SCOPE LOOP 
2175 ;REPLACE ERROR CALL WITH 
2176 :"BR 1$'' = 000767 
2177 021704 005037 177572 2$: CLR — SRO BE SURE SRO IS 0 BEFORE LEAVING 
2178 021710 005037 177776 CLR —s PS ;BE SURE PSW IS 0 BEFORE LEAVING 
e 
s 
7 
, 
4 


S 3 
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TEST # 16 - BIT TEST OF MEMORY MANAGMENT REGISTER 1 
2191 _SBTTL TEST # 16 - BIT TEST OF MEMORY MANAGMENT REGISTER 1 
cerecT 16 BIT TEST OF MEMORY PAMAGMENT REGISTER 1 
[TEST 16 BIT TEST OF MEMORY MANAGMENT REGISTER 1 
**THIS TEST WILL CAUSE BITS I 1 TO BE LOCKED BY SETTING BITS 15: 13> 
i THE REGISTER ONLY GETS CLOCKED ON AN INSTRUCTION THA 
*® INCREMENTS OR AUTO DECREMENTS A REGISTER. THE LOWER BYTE IS WAYS. CLOCKED 
“*FIRST AND THE UPPER BYTE IS ONLY CLOCKED IF BOTH SOURCE AND DESTINATION 
“*AUTO INCREMENT OR DECREMENT A REGISTER. 
*#ALL COUNTS (+1,-1,4+2,-2) THAT CAN BE GENERATED ARE CLOCKED INTO THE HIGH 
; SAND LOW BYTES. ALi REGISTER NUMBERS ARE GENERATED, INCLUDING ALL THREE 
-*#R6"S. AND ALL THE BITS THAT HOLD THE REGISTER NUMBER IN BOTH BYTES 
>*ARE TESTED: HOWEVER. ALL REGISTER NUMBERS ARE CLOCKED INTO BOTH HIGH AND 
;*LOW BYTES, T ENOUGH ARE USED TO TEST THE LOGIC. 
 REREREERRARERREEREREERREREREREERRERREEREREREEEEREEEEREERRERE EEE 
021714 000004 TST16: SCOPE 
2192 021716 012700 177574 20$: MOV #MMR1 RO :PUT ADDRESS OF MMR1 INTO RO 
2193 021722 012704 020000 MOV #BIT13.R4 “SET READ ONLY BIT IN R4 
2194 021726 012737 021734 001110 MOV #11$,$LPERR “SET LOOP ON ERROR POINTER TO 11$ 
2195 021734 012737 100000 177572 11$: MOV #B1T15,MMRO : LOCK ip MAR] LOW BYTE 027,HIGH BYTE 027 
2197 021742 012703 013427 MOV #013427, R3 :PUT EXPECTED DATA IN R3 
2198 021746 011001 MOV READ MMR1 INTO R1 
2199 021750 020103 CMP R) 1S “SEE IF DATA MATCHES 
2200 021752 001401 BEQ “BRANCH IF DATA MATCHES 
2201 021754 10401 ERROR *MMR1 DID NOT TRACK PROPERL 
2202 021756 021764 001110 10$: MOV #128, SLPERR =SET LOOP ON ERROR POINTER” TO 12$ 
2203 021764 12$: RESET “ISSUE INIT 
204 0217 MOV (RO) .R1 :SEE IF MART IS CLEARED 
2205 021770 BEQ 1$ “BRANCH IF MMR1 IS ZERO 
2206 021772 ERROR +11 “CAN'T CLEAR MARI 
2207 021774 022002 001110 1$: MOV #13$,SLPERR *SET LOOP ON ERROR POINTER TO 13S 
2208 02 177572 13$: MOV R2 “PUT ADDRESS OF MMRO INTO R2 
02 040000 MOV WBIT14,(R2)+  :LOCK UP MARI-LOWER BYTE 027 
; UPPER BYTE 022-WORD 011027 
2211 022012 011001 MOV (RO) .R1 READ MMR1 
2 022014 012703 011027 MOV #011027, R3 PUT EXPECTED DATA IN R3 
2213 022020 020103 CMP 1,R3 :SEE IF DATA MATCHES 
2214 022022 001401 BEQ 3s” H IF DATA MATCHES 
2215 022024 104014 ERROR +14 “ARI DID NOT TRACK PROPERLY 
2216 022026 005037 177572 2$: CLR MRO “CLEAR MMRO 
2217 022032 012737 022040 001110 MOV #14$.S$LPERR “SET LOOP ON ERROR POINTER TO 14$ 
2218 022040 012702 177574 14$: MOV #MMRO+2 R “PUT ADDRESS OF MMRO PLUS 2 IN R2 
2219 022044 010442 MOV R4,-(R2) “LOCK UP MMRI-LOWER BYTE 000 
2220 ‘UPPER BYTE 362-WORD 171000 
221 022046 011001 MOV (RO) .R1 “READ MARI 
2222 2050 012703 171000 MOV #171000, R3 =PUT EXPECTED DATA IN R3 
2223 02 020103 CMP R1,R3 “SEE IF DATA MATCHES 
2 24 022056 001401 BEQ 3$ ‘BRANCH IF DATA MATCHES 
25 022060 104014 ERROR +14 ;MMRI DID NOT TRACK PROPERLY 
2226 022062 005012 3$: CLR AR MMRO 
2227 022064 012737 022072 001110 MOV #15$.S$LPERR “SET LOOP ON ERROR POINTER TO 15$ 
2228 022072 012705 177573 15$: MOV +1,R5 “PUT ADDRESS OF MMRO'S UPPER BYTE IN RS 
22 02 76 012701 001343 MOV WREADON+1,R1 —- : PUT _ADDRESS OF READ ONLY BIT <13> IN R1 
2 2102 112125 MOVB _ (R1)+, (R5)+ “LOCK UP MMR1-LOWER B on 
231 “UPPER BYTE 015-WORD 008611 
2232 022104 011001 MOV (RO) .R1 “READ MMR 
2233 022106 012703 006411 MOV #006411,R3 “PUT EXPECTED DATA IN R3 
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CKKTABO 11/44 MEM MGMT PRT A MACRO M1113 23-APR-81 13:32 PAGE 48-1 SEQUENCE 59 
TEST # 16 = BIT TEST OF MEMORY MANAGMENT REGISTER 1 


2234 022112 020103 CMP R1,R3 :SEE IF DATA MATCHES 
239 022114 001401 BEO 4$ ‘BRANCH IF DATA MATCHES 
2 36 e116 104014 ERROR +14, “MMR1 DID NOT TRACK PROPERLY 
2237 022120 00501 4$: CLR (R2 *CLEAR MMRO 
2238 022122 01275 022130 001110 MOV nes SLPERR *SET LOOP ON ERROR POINTER TO 16$ 
2059 022130 012701 177574 16$: MOV #nRo+2, :PUT ADDRESS OF MMRO'S UPPER BYTE 
2241 022134 012705 001344 MOV #READON+2,R5 :PUT ADDRESS OF READ ONLY BIT <13> 
2243 022140 114541 MOVB  -(RS),-(R1) “LOCK UP MMRI1-LOWER BYTE 375 
bb ; UPPER BYTE 371-WORD 174775 
2245 022142 011001 MOV (RO) RI MAR 1 
2246 0221 64 012703 174775 MOV #174775.R3 “PUT EXPECTED DATA IN R3 
2247 022150 020103 CMP R1,R3 “SEE IF DATA MATCHES 
2248 022152 001401 BEQ 5$ “BRANCH IF DATA MATCHES 
2249 022154 104014 ERROR +14 *MMR1 DID NOT TRACK PROPERLY 
2250 022156 005012 5$: CLR (R2) “CLEAR MMRO 
2251 3160 012737 022200 001110 MOV #17$.$LPERR *SET LOOP ON ERROR POINTER TO 17$ 
2252 166 012737 040000 177776 MOV ¢ #40000.PSW “SET SUPERVISOR MODE 
225 022174 010637 001176 MOV SSP, $TMPO “SAVE SUPERVISOR STACK POINTER 
2254 022200 012706 177574 17$: MOV #MMRO+2, SSP *PUT ADDRESS OF MMRO+2 IN SSP 
2255 022204 012746 040000 MOV #40000,-(SSP) :LOCK UP MMRI-LOWER BYTE 027 
2256 ;UPPER BYTE 366-WORD 173027 
2257 022210 011001 MOV (RO) .R1 MARI 
2258 022 gt2 012703 173027 MOV #173027,R3 “PUT EXPECTED DATA IN R3 
2259 259 022216 16 020103 CMP R1,R3 =SEE IF DATA MATCHES 
001401 BEQ 6$ ‘BRANCH IF DATA MATCHES 
re §55559 104014 ERROR +14 :MAR1 DID NOT TRACK PROPERL) 
2262 022224 013706 001176 6$: MOV $TMPO, SSP “RESTORE THE SUPERVISOR STACK POINTER 
2263 022230 005012 CLR (R2) =CLEAR MARO 
2264 022232 012737 022252 001110 MOV #18$,SLPERR ‘SET LOOP ON ERROR POINTER TO 18$ 
2265 022240 012737 140000 177776 MOV #140000 .P PSW “SET USER 
2266 022246 010637 001176 MOV USP “SAVE USER STACK POINTER 
2267 022252 012706 177572 18$: MOV *PUT ADDRESS OF MMRO IN USP 
2268 022256 012726 100000 MOV ORO SP “LOCK UP MMRI-LOWER BYTE 027 
9 “UPPER BYTE 026-WORD 013027 
2270 022262 011001 MOV (RO) .R1 “READ MMRI 
2271 022264 012703 013027 MOV #013027,R3 *PUT EXPECTED DATA IN R3 
2272 022270 020103 CMP R1,R3 ‘SEE IF DATA MATCHES 
001401 BEQ : H IF DATA MATCHES 
2274 022274 104014 ERROR +14 . *MMR1 DID NOT TRACK PROPERLY 
2275 022276 013706 001176 7$: MOV $TMPO USP “RESTORE THE USER STACK POINTER 
2276 022302 005037 177776 CLR PSW :GO BACK TO KERNAL MOD 
22306 005037 177572 _* CLR MRO “LET ALL MEM MGT REG'S 


2277 9 TRACK 
2278 022312 012737 021716 001110 MOV #20$,$LPERR :SET LOOP ON ERROR POINTER TO START OF TEST 


a — << 


I 
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TEST # 17 = BIT TEST OF MEMORY MANAGEMENT REGISTER 3 


2286 .SBTTL TEST # 17 ~ BIT TEST OF MEMORY MANAGEMENT REGISTER 3 
s RAAAAAAAAEAAAAAEAAAAAAAEAAEAAAAARAERAAEAAAAAARAAAARARAEHAAEATAAAAEE 
<STEST 17 BIT TEST OF MEMORY MANAGEMENT REGISTER 3 
_ THIS TEST SETS AND CLEARS BITS <05:04> AND <02:00> OF MMR3. IT DOES 
:* NOT TEST THAT THE BITS FUNCTION PROPERLY SIACE THAT "REQUIRES MORE 
:* LOGIC: HOWEVER, IT TESTS THE REGISTER AND THE DAT TO AND FROM 
ot THE REGISTER. THE PROPER FUNCTIONING OF THESE BITS is. TESTED LATER 
:* IN SEVERAL TESTS. 
etl ae in nani tna 
022320 000004 1ST17: SCOPE 
2287 022322 012700 172516 20$: MOV #MMRZ RO :PUT ADDRESS OF MMR3 IN RO 
: 012702 000001 MOV #1.R2 “SET BIT TO FLOAT THRU MMR3 
2289 022332 005010 CLR (RO) “CLEAR MMR3 
2290 022334 111001 (RO) .R1 *READ MMR3 INTO R1 
2291 022336 001401 BEQ 5$ “BRANCH IF ZERO 
2292 022340 104011 ERROR tt. “CAN'T CLEAR 
2293 022342 012703 000006 5$: MOV =SET UP LOOP COUNT 
2294 022 012737 022354 001110 MOV e's SLPERR *SET LOOP ON ERROR POINTER TO 1$ 
2295 022354 010210 1$: MOV R2, (RO) : LOAD MARS 
2296 022356 011001 MOV (RO) ,R1 “READ MARS I 
2297 022360 120201 CMPBséR2 RI *DOES DATA HATCH SATTERN? 
298 022362 001401 - BEQ 2$ SBRANCH IF IT MATCHES 
2299 022364 104015 ERROR +15 HAS WRONG DATA 
2300 022366 006302 2$: ASL R2 “LEFT SHIFT DATA PATTERN 
2301 022370 077307 SOB R3,1$ “BRANCH BACK 0 
3372 012702 000077 MOV #77 ,,R2 *PUT DATA PATTERN IN R2 
2303 022376 012737 022404 001110 MOV #12$, SLPERR :SET LOOP ON ERROR POINTER TO 12$ 
404 010210 12$: MOV R2, (RO) :TRY TO SET ALL BITS IN MARS 
2305 022406 011001 MOV (RO) ,R1 “READ MMR3 INTO R1 
2306 022410 120201 CMPB ss R21 :SEE IF ALL BITS GOT SET 
2307 022412 001401 BEQ 38 ;BRANCH IF ALL WERE SET 
2308 022414 104015 ERROR +15 DATA 
2309 022416 012737 022424 001110 3$: MOV #13$,$LPERR “SET LOOP ON ERROR POINTER TO 13S 
2310 022424 5 13$: RESET : ISSUE AN INIT 
2311 022426 111002 MOVB  (RO).R2 READ MRS INTO R2 
2312 022430 001401 BEQ 4$ “BRANCH IF MMR3 CLEARED 
2313 022432 104011 ERROR +11 >CAN'T CLEAR MMR3 


2314 022434 012737 022322 001110 4$: MOV #20$ ,SLPERR :SET LOOP ON ERROR POINTER TO START OF TEST 


Se oo 


A ET 
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.SBTTL PAR AND PDR TESTS 


£ LARA AAAAAAKAAAAAAAAARAAAAAARAAARAAAARAAARAAAAAAAAAAERAHATRAAAR ERE 


PAR AND PDR TESTS 


* 
WER RAAASBABASAAASLSALAALASASLARARAS ARRAS ER RRAR AREA SRRRRRERAR ARRAS ASA RAS SSS SE S| 


/ 


a ee ee + ee 
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- SBTTL TEST # 20 = DUAL ADDRESS KERNAL PAR'S,ON LOADING 


SEAAAAEAEAEAEAAAKAERARAARERAAAAAEAERAAAAAAARARAEAAAAAAAERAEEARA ERED 


2332 


2533 


022442 
4 


02 
022510 


022552 


022512 | 
20 * 01 


002334 
001176 
000002 
172340 


000902 
172376 


022444 
001322 


001322 
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001110 


001110 


001110 


001210 


: TEST 20 


eee ee _—— 


SEQUENCE 62 


DUAL ADDRESS KERNAL PAR'S,ON LOADING 


: THIS aie FIRST eo ALL THE KERNAL PAGE ADDRESS REGISTERS, 
HEN, STARTING 


;*AND CHECKS TO SEE THAT THE 


Y EACH HOLD ZERO. 


:*WITH I-SPACE ADDRESS REGISTER ZERO, ONE REGISTER 
L_KERNAL 


:*LOADED WITH A NEGATIVE ONE 


AT A TIME IS 
ADDRESS REGISTERS ARE 


AL 
THE ONE UNDER TEST IS NON-ZE 
RRORS REPORTED AND A SUMMARY OF THEM IS GIVEN 


{RAE REKEREREREAEEREREEKERERREERERERERRRREERRERE 


“*NOW READ TO SEE THAT ONLY 
:*INDIVIDUAL E 
“*AT THE END OF THIS TEST. 
$120: SCOPE 
20$: JSR C.CL 
MOV #1$,$LPERR 
MOV IPARO,R5 
JSR PC, CLRREG 
MOV IPARO, 
MOV #20,R1 
1$: MOV (RO) ,R2 
BEQ 2$ 
ERROR +30 
23: ADD #2,R0 


s INITIALIZE THE ERROR LOCATIONS 
iSET rs A a Ts POINTER TO 1$ 
;PUT ADDRESS OF FIRST PAR _IN R5 
; CLEAR 16. REGISTERS POINTED TO BY R5 
[PUT ADDRESS OF FIRST PAR IN RO 
: OUNT IS 16 DECIMAL 


NO 
:POINT TO NEXT REGISTER 
BACK TO 1$ 15 TIMES 


SOB R1,1$ > BRANCH 
NOW START DUAL ADDRESSING TEST BY LOADING -1 INTO ONE REGISTER AND 


;READING THE REST TO SEE ONLY 


3$: MOV 
JSR PC, CLRREG 
MOV PAR7 ,R1 
MOV #-1, (RO) 
4$: CLR $T 
MOV (R1) .R2 
BEQ 6$ 
CMP RO,R1 
BEQ 5$ 
JSR PC ,DUALADR 
5$ INC STMPO 
SUB #2,R1 
CMP MKIPARO,R1 
BLOS 4$ 
ADD #2,R0 
CMP #KDPAR7 ,RO 
BHIS 
MOV #20$.$LPERR 
TST ERRCNT 
BR TST21 
MOV ERRCNT ,STMPS 
ERROR +31 


Y THAT REGISTER IS NON ZERO. (ANY 
DROPPED BITS a BE A IN ii ary TEST). 


OOP ON pr POINTER TO 3$ 
;PUT eat OF FIRST PAR_IN RO 
;LOAD STARTING ADDRESS INTO R5 
CLEAR 16 REGISTERS S INTO Rt TO BY R5 


;PUT KDPAR7 ADDRESS 
A og REGISTER UNDER TEST 
sFLAG TO y A ~~ WAS A MATCH 
; $0 
:IS THE ADDRESS OF ar tect, REGISTER THE SAME 


FLAG WHEN ADDRE 
:POINT TO NEXT REGISTER 
sSEE IF 7 - 2 esi. pes BEEN READ 


:SAVE # OF ERRORS FOR PAR OUT 
:; SUMMARY OF DUAL ADDRESS TEST 


ee 
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TEST # 21 = DUAL ADDRESS SUPERVISOR PAR'S,ON LOAD 
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-SBTTL TEST # 21 - DUAL ADDRESS SUPERVISOR PAR‘'S,ON LOADING 


© * EEA EAAAEAEEEAAAEEAAEREEEEAAAAAEEKEKEAAARAEEAEEEAEAAAAAAEARAEEEREE 


;*TEST 21 


DUAL ADDRESS SUPERVISOR PAR'S.ON LOADING 


‘THIS TEST FIRST eon ALL THE SUPERVISOR PAGE ADDRESS REGISTERS, 
ZE ont Hee}! ING 


[*AND CHECKS TO SEE THA 


: *LOADED WITH A NEGATIVE 
;*NOW READ TO SEE THAT ONLY 


THEY EACH 
;*WITH I~SPACE ADDRESS REGISTER 1; 


HOLD 
ONE REGISTER A TIME IS 
UPERVISOR "ADDRESS REGISTERS ARE 


ALL 
THE ONE UNDER TEST 


NON-ZERO. 
:*INDIVIDUAL ERRORS ARE REPORTED AND A SUMMARY OF THEM IS GIVEN 


:*AT THE END OF THIS TEST. 


« ERRREERRREERERERERREERREREREERERERERERER ERE 


: INITIALIZE THE ERROR LOCATIONS 

SET po ON “ep POINTER TO 1$ 
sPUT ADDRESS OF FIRST PAR _IN R5 
CLEAR. 16 REGISTERS POINTED TO BY 5 

;PUT ADDRESS OF FIRST PAR IN RO 

; BRANCH ‘ey 16 DECIMAL 


sPOINT TO =" REGISTER 
CK 10 1$ 15 T 


SOB R1,1$ BRANCH BA TIMES 
NOW START DUAL ADDRESSING TEST BY LOADING -1 NINTO ONE REGISTER AND 
:READING THE REST TO SEE ONLY THAT NEXT TEST) NON ZERO. (ANY 


022640 000004 $121: SCOPE 

2338 022642 004737 002276 20S: JSR PC, CLEANUP 
022646 012737 022674 001110 MOV #1$,$LPERR 
022654 012705 172240 MOV #SIPARO, R5 
022660 004737 002260 JSR PC, CLRREG 
022664 012700 172240 MOV #SIPARO,RO 
02260 012701 000020 MOV #20,R 
022674 011002 1$: MOV (RO) .R2 
022676 001401 BEQ 2$ 
ee? 104030 ERROR +30 
022702 062700 000002 2s: ADD #2,R0 
022706 077106 

“DROPPED BITS WILL BE FOUND IN 
022710 012737 022722 001110 MOV #3$,$LPERR 
022716 012700 172240 MOV #SIPARO,RO 
022722 012705 172240 3$: MOV SIPARO.R5 
022726 004737 2260 JSR PC, CLRREG 
022 012701 172276 MOV SDPAR7 ,R1 
022736 012710 177777 MOV #~1,(R 
022742 005037 001176 4$: CLR $T 
022746 011102 MOV (R1) ,R2 
022750 001406 BEQ 6$ 
022752 020001 CMP RO,R1 
022754 001402 BEQ 5$ 
022756 004737 002334 JSR PC ,DUALADR 
022762 005237 001176 5$: INC STMPO 
022766 162701 000002 6$: SUB #2,R1 - 
22772 022701 172240 CMP #SIPARO,R1 
0 9776 101761 BLOS 4$ 
0 062700 000002 D #2.R0 
0230046 022700 172276 CMP ASDPAR7 ,RO 
023010 103344 BHIS 3 
3012 012737 022642 001110 MOV #20$.,$LPERR 

023020 005737 001322 TST — ERRCNT 
023024 000404 BR TST22 
023026 013737 001322 001210 V ERRCNT, $TMP5 
023034 104031 ERROR +31 


THE NEXT 


;SET LOOP ON ERROR POINTER TO 35$ 

:PUT Tie FIRST PAR_IN RO 

sLOAD S ARTING ADDRESS INTO R5 

CLEAR 16 REGISTERS POINTED TO BY R5 
SDPAR7 SS_INTO R1 


‘PUT 
;LOAD REGISTER UNDER JEST 
:FLAG TO ei tare THERE WAS A MATCH 


; Ss 0 
IS THE ADDRESS OF NON-ZERO, REGISTER THE SAME 


S 

LAG WHEN ADDRESSES MATCH 
:POINT TO NEXT REGISTER 
:SEE IF ALL REGISTERS HAVE BEEN READ 
BRANCH IF TO READ 


MORE 
;NOW LOAD THE NEXT REGISTER 
RE REGISTERS TO TEST 


; O TEST 
:SET LOOP ON ERROR POINTER TO START OF TEST 
73EE IF THERE WERE ANY ERRORS 
H TO NEXT TEST IF NO ERRORS 
:SAVE # OF ERRORS FOR PAR OUT 
:;SUMMARY OF DUAL ADDRESS TEST 


63 


A - 


cc ED eG 
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nn 













2342 _SBTTL TEST # 22 - DUAL ADDRESS USER PAR'S,ON LOADING 
$ S EAAAAAEAEAAAAEAAEAAEAAAEAAAAEAAAAAAEAARAAAAAAARAEAAREAAAARER EERE RES 
S*TEST 22 DUAL ADDRESS USER PAR'S.ON LOADING 
: STHIS TEST FIRST CLEARS ALL THE USER PAGE ADDRESS REGISTERS. 
“AND CHECKS TO SEE THAT THEY EACH HOLD ZERO. TING 
**WITH I-SPACE ADDRESS REGISTER ZERO, ONE REGISTER AT A TIME IS 
**LOADED WITH A NEGATIVE ONE. USER ADDRESS REGISTERS ARE 
> *NOW R SEE THAT ONLY THE ONE UNDER TEST IS NON-ZERO. 
‘INDIVIDUAL ERRORS ARE REPORTED AND A SUMMARY OF THEM IS GIVEN 
“*AT THE END OF THIS TEST. 
Tritt  t ttt t itt i titi ti ii ititititiiiiit ti itii iii iii iis, 
023036 TST22: SCOPE 
2343 023040 737 002276 20$: JSR PC, CLEANUP s INITIALIZE THE ERROR LOCATIONS 
023044 012737 023072 001110 MOV #1$.$LPERR ;SET LOOP ON ERROR POINTER TO 1$ 
023052 012705 177640 MOV MUIPARO, T ADDRESS OF FIRST PAR IN RS 
023056 737 002260 JSR PC, CLRREG “CLEAR 16 REGISTERS POINTED | TO BY RS 
023062 012700 177640 MOV IPARO, :PUT ADDRESS 10F FIR 
023066 012701 20 MOV #20,R : H T IS 16 DECIMAL. 
23072 011002 1$: MOV (RO) .R2 “READ PAR TO R2 
023074 001401 | BEQ 2$ : H IF PAR IS 0 
023076 104030 ERROR +30 *PAR NOT ZERO 
023100 062700 000002 2$: ADD #2,R0 POINT | TO NEXT REGISTER 
023104 077106 508 R1.1$ H BACK TO 1$ 15 TIMES 
:NOW START BUAL ADDRESSING TEST BY LOADING -1 INTO ONE REGISTER AND 
“READING THE REST TO SEE ONLY THAT REGISTER IS NON ZERO. (ANY 
“DROPPED BITS WILL BE FOUND IN THE NEXT TEST). 
023106 012737 023120 001110 MOV #33, SLPE :SET LOOP ON ERROR POINTER TO 3$ 
023114 012700 177640 MOV #HUIPARO,RO T ADDRESS OF FIRST PAR IN RO 
023120 012705 177640 3$: MOV #HUIPARO.RS =LOAD STARTING ADDRESS INTO R5 
023124 737 002260 JSR PC, CLRREG *CLEAR 16 REGISTERS POINTED TO BY RS 
023130 012701 177676 MOV AR, *PUT UDPAR7 ADDRESS INTO R1 
023134 012710 177777 MOV #-1, (RO) “LOAD REGISTER UNDER TEST 
023140 005037 001176 4$: CLR T “FLAG TO INDICATE THERE WAS A MATCH 
023144 011102 MOV (R1) ,R2 “READ ALL REGISTERS 
023146 0014 BEQ : HI 0 
023150 0 CMP RO,R1 71S THE ADDRESS OF NON-ZERO REGISTER THE SAME 
*AS THE REGISTER UNDER TEST 
023152 001402 BEQ 5$ ‘BRANCH IF ADDRESSES MATCH | 
023154 004737 002334 JSR PC,DUALADR :LOG AND T ERRORS 
023160 005237 001176 5$ INC STMPO SET FLAG WHEN ADDRESSES MATCH 
023164 162701 2 SUB #2,R1 “POINT TO NEXT REGISTER 
023170 022701 177640 CMP #UIPARO,R1 = SEE IF ALL L REGISTERS HAVE BEEN READ 
023174 101761 BLOS  6«.-«4$ : H IF MORE TO READ 
023176 700 2 ADD #2,R0 :NOW LOAD 
2 2700 177676 CMP #UDPAR7 ,RO *SEE IF THE ISTERS TO TEST 
BHIS :BRANCH I TEST 
023210 012737 023040 001110 MOV #20$,$LPERR =SET LOOP POINTER TO START OF TEST 
023216 005737 001322 TST ERRCNT “SEE IF THERE WERE ANY ERROR 
023222 04 BR TST23 : =BRANCH TO NEXT TEST IF NO ERRORS 
023224 013737 001322 001210 MOV ERRCNT.STMP5 _: SAVE # OF ERRORS FOR PAR OUT 
023232 104031 ERROR +31 >= SUMMARY OF DUAL ADDRESS TEST 
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SEQUENCE 65 


T # 23 ~ DUAL ADDRESS KERNAL PDR'S,ON L 


2347 


0 
2348 


Oe see 





001110 


000002 


023316 001110 
17 


00000 
172336 


023236 
001322 


001322 001210 


001110 


-SBTTL TEST # 23 - DUAL ADDRESS KERNAL PDR'S,ON LOADING 


© * REE AEEAAEAAEAAEAAAAAAEEAEAEEAAAAAEEAEKEAARAAAAEEAAAEAAEAAREAAEAEEEEEEE 


;#TEST 23 DUAL ADDRESS KERNAL PDR‘'S,ON LOADING 


« STHIS TEST FIRST CLEARS ALL THE KERNEL PAGE DESCRIPTOR REGISTERS. 
“*AND CHECKS TO SEE THAT THEY EACH HOLD ZERO. THE 

+ WITH I=SPACE DESCRIPTOR REGISTER ZERO, ONE REGISTER AT A TIME IS 
; IT VE ONE. ALL KERNEL DESCRIPTOR REGISTERS ARE 
THE ONE UNDER TEST IS 


> * INDIVIDUAL ERROR EPORTED AND A SUMMARY OF THEM IS GIVEN 
“AT THE END OF THIS TEST. 
{ EAAAAEAAAAREREREREEEAEREEEEEEERERERAERAAAERAERAREEEERAEREREAERREREE 
8123: SCOPE 
20$: JSR PC, CLEANUP s INITIALIZE THE ERROR LOCATIONS 
MOV #1$,$LPERR *SET LOOP ON ERROR POINTER TO 1$ 
MOV #KIPDRO,RS ‘PUT ADDRESS OF FIRST PDR IN RS 
JSR PC, CLRREG “CLEAR 16 REGISTERS POINTED TO BY RS 
MOV #KIPDRO,RO “PUT ADDRESS OF FIRST PDR IN RO 
MOV #20,R1 : OUNT IS 16 DECIMAL 
1$: MOV (RO) .R2 *READ PDR TO R2 
BEQ 2$ “BRANCH IF PDR IS 0 
ERROR +30 “PDR NOT ZERO 
2$: ADD #2,R0 “POINT TO NEXT REGISTER 
S0B H BACK TO 1$ 15 TIMES 


R1.1$ 
:NOW START DUAL A DBRESSING TEST BY LOADING -1 INTO ONE REGISTER AND 
;READING THE REST TO SEE ONLY THAT REGISTER IS NON ZERO. (ANY 
: DROPPED waits WiLL BE FOUND IN THE NEXT TEST). 


SLPERR :SET LOOP ON ERROR POINTER TO 3$ 
MOV #KIPDRO,RO PUT ADDRESS OF FIRST PDR IN RO 
3$: MOV #KIPDRO,RS “LOAD STARTING ADDRESS INTO RS 
JSR PC, CLRREG > CLEAR 16 REGISTERS POINTED TO BY R5 
MOV 7,R =PUT KDPDR7 ADDRESS INTO R1 
MOV #~1, (RO) - ;LOAD REGISTER UNDER TEST 
4$: CLR LAG TO INDICATE THERE WAS A MATCH 
MOV (R1) ,R2 -READ ALL REGISTERS 
BEQ 6$ “BRANCH IF REGISTER IS 0 
CMP RO.R1 :1$ THE ADDRESS OF NON-ZERO REGISTER THE SAME 
*AS THE REGISTER UNDER TEST? 
BEQ 5$ ; BRANCH IF ADDRESSES MATCH 
JSR PC , DUALADR LOG AND T ERRORS 
5$: INC “SET FLAG WHEN ADDRESSES MATCH 
é$: SUB #2,R1 =POINT TO NEXT REGISTER 
CMP #KIPDRO,R1 “SEE IF ALL REGISTERS HAVE BEEN READ 
BLOS 4$ : H IF MORE TO READ 
D #2,R0 “NOW TOAD THE NEXT REGISTER 
CMP #KDPDR7,RO “SEE IF THERE ARE MORE REGISTERS TO TEST 
BHIS 4 *BRANCH IF MORE REGISTERS TO TEST 
MOV #20$,$LPERR -SET LOOP ON E POINTER TO START OF TEST 
TST ERRCNT ;SEE IF THERE WERE ANY ERROR 
BR TST24 : =BRANCH TO NEXT TEST IF NO ERRORS 
MOV ERRCNT.STMP5 = SAVE # OF ERRORS FOR PDR OUT 


ERROR +351 >; SUMMARY OF DUAL ADDRESS TEST 


me ne se eee 
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2352 _SBTTL TEST # 24 = DUAL ADDRESS SUPERVISOR PDR'S.ON LOADING 
FE ERAAAAAAAAAAAAAAAAAAA AAAS AAAAAAARERAAAAAAAAAAAAAAARAAAAEAA ARES 
:*TEST 24 DUAL ADDRESS SUPERVISOR PDR'S,ON LOADING 
: THIS TEST FIRST CLEARS ALL THE SUPERVISOR PAGE DESCRIPTOR REGISTERS, 
“*AND CHECKS TO SEE THAT THEY EACH HOLD ZERO. THEN 
:#WITH I-~SPACE DESCRIPTOR REGISTER ZERO REGISTER A TIME IS 
“LOADED WITH A NEGATIVE ONE. ALL SUPERV OSOR RO ScRIPTOR REGISTERS ARE 
:*NOW READ TO SEE THAT ONLY THE ONE UNDER TEST IS NON-ZE 
: s INDIVIDUAL ERRORS ARE REPORTED AND A SUMMARY OF THEM IS GIVEN 
T THE END OF THIS TEST. 
pe BR BR, en 
023432 $124: SCOPE 
2353 023434 737 002276 0$: JSR PC, CLEANUP s INITIALIZE THE ERROR LOCATIONS 
02 012737 023466 001110 MOV #1$,SLPERR *SET LOOP ON ERROR POINTER TO 1$ 
02 012705 172200 MOV #SIPDRO.RS “PUT ADDRESS OF FIRST PDR IN RS 
3452 737 002260 JSR PC, CLRREG “CLEAR 16 REGISTERS POINTED TO BY RS 
%456 012700 172200 MOV #SIPDRO,RO “PUT ADDRESS OF FIRST PDR IN RO 
023462 012701 20. MOV #20,R1 “BRANCH COUNT IS 16 DECIMAL 
023466 011002 1$: MOV (RO) .R2 sREAD PDR TO R2 
023470 001401 BEQ 23 “BRANCH IF PDR IS 0 
023472 104030 ERROR +30 “PDR NOT ZERO 
023474 062/00 000002 2$: ADD #2.R0 *POINT TO NEXT REGISTER 
23500 077106 R1.1$ TO 1$ 15 TIMES 
:NOW START DUAL ADDRES SING TEST BY LOADING - a INTO ONE REGISTER AND 
“READING THE REST TO SEE ONLY THAT REGISTER 7S NON ZERO. (ANY 
:DROPPED BITS WILL BE FOUND IN THE NEXT TEST). 
023502 012737 023514 001110 MOV #3, SLPERR SET ON ERROR POINTER TO 3$ 
023510 012700 172200 MOV #SIPDRO RST PDR IN RO 
023514 012705 172200 3S: MOV #SIPDRO.RS [LOAD STARTING ADDRESS INTO RS 
023520 004737 002 JSR PC, CLRREG : CLEAR 16 REGISTERS POINTED TO BY RS 
0235 012701 172236 MOV #SDPDR7,R1 “PUT SDPDR7 ADDRESS INTO R1 
023530 012710 177777 MOV #~1, (RO) [LOAD REGISTER UNDER TEST 
0239 037 001176 4$: CLR $ ‘FLAG TO INDICATE THERE WAS A MATCH 
023 011102 MOV (R1) ,.R2 [READ ALL REGISTERS 
023542 001406 BEQ 6$ “BRANCH IF REGISTER IS 0 
023544 1 CMP RO.R1 :IS THE ADDRESS OF NON-ZERO, REGISTER THE SAME 
[AS THE REGISTER UNDER TEST 
023546 001402 BEQ 5$ “BRANCH IF ADDRESSES MATCH 
023550 004737 002334 JSR PC, DUALADR “LOG AND T ERRORS 
023554 005237 001176 5$ INC 4 “SET FLAG ADDRESSES MATCH 
560 162701 2 SUB #2,R1 *POINT TO NEXT REGISTER 
564 022701 172200 CMP #SIPDRO,R1 : SEE IF ALL REGISTERS HAVE BEEN READ 
023570 101761 BLOS 4$ : H IF TO READ 
572 062700 000002 ADD #2,R0 : NEXT REGISTER 
3576 922700 172236 CMP #SDPDR7 RO “SEE IF THERE ARE MORE REGISTERS TO TEST 
1 BHIS IF MORE REGISTERS TO T 
12737 023434 001110 MOV #20$. $LPERR “SET L E POINTER TO START OF TEST 
12 737 (001322 TST “SEE IF THERE WERE ERRORS 
3616 04 BR TST25 2; H TO TEST IF NO ERRORS 
3620 013737 001322 001210 MOV ERRCNT.STMPS  :SAVE # OF E T 
023626 104037 ERROR +31 3S ADDRESS TEST 
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736 
023740 


mm eee es 
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ADDRESS USER POR'S-ON LOAD 


000002 


023712 
17 


002334 
001176 
000002 
177600 
000002 
177636 


023632 
001322 


001322 


001110 


001110 


001110 


001210 


-SBTTL TEST # 25 - DUAL ADDRESS USER PDR'S,ON LOADING 


s ERAAAAAAEAAAAEAEAEAAEAEAEAAAAAEAAARERAAAAAAAAAARAEAAARERAEERERRERE ERE 
TEST 25 DUAL ADDRESS USER PDR'S.ON LOADING 

: #THIS TEST FIRST CLEARS ALL THE USER PAGE DESCRIPTOR REGISTERS. 
“AND CHECKS TO SEE THAT THEY EACH HOLD ZERO. T STARTING 
“#WITH I-SPACE DESCRIPTOR REGISTER ZERO, ONE REGISTER AT A TIME IS 
“#LOADED WITH A NEGATIVE ONE. ALL USER DESCRIPTOR REGISTERS ARE 
**NOW READ TO SEE THAT ONLY THE ONE UNDER TEST IS NON-ZE 
‘INDIVIDUAL ERRORS ARE REPORTED AND A SUMMARY OF THEM IS GIVEN 
:*AT THE END OF THIS TEST. 


{ RRAARARERARAEREEAEEREEEREEEEKKEEREREKAARAERARERAEREKEERKERAEREREKEEERE 






18125: SCOPE 
$: JSR PC, CLEANUP s INITIALIZE THE ERROR LOCATIONS 
MOV #1$,SLPERR :SET LOOP ON ay POINTER TO 1$ 
MOV #UIPDRO,R5 ;PUT ADDRESS OF FIRST PDR_IN R5 
JSR PC, CLRREG [CLEAR 16 REGISTERS POINTED TO BY R5 
MOV #UIPDRO, ;PUT ADDRESS OF FIRST PDR IN RO 
MOV #20,R1 ; OUNT IS 16 DECIMAL 
1$: MOV (RO) .R2 READ PDR TO R2 
BEQ 2s : CH IF PDR IS 0 
ERROR +30 ZERO 
2$: ADD #2,R0 ;POINT TO NEXT REGISTER 
$08 R1,1$ CK TO 1$ 15 TIMES 
;NOW START DUAL ADDRESSING TEST by LOADING -1 INTO ONE REGISTER AND 
;READING THE REST TO SEE ONLY THAT REGISTER IS NON ZERO. ( 
;DROPPED BITS WILL BE FOUND IN THE NEXT TEST). 
MOV #3$ ,SLPERR :SET LOOP ON ERROR POINTER TO 3$ 
MOV IPDRO,RO :PUT wey OF FIRST PDR_IN RO 
3$: MOV #UIPDRO,RS LOAD S ARTING ADDRESS INTO R5 
JSR PC, CLRREG CLEAR 16 REGISTERS POINTED TO BY R5 
MOV € ;PUT UDPDR7 ADDRESS INTO R1 
MOV #~-1 , (RO) oe REGISTER UNDER TEST 
4$: CLR $ FLAG TO INDICATE THERE WAS A MATCH 
MOV (R1) .R2 SREAD _ REGISTERS 
BEQ 6$ ; H IF REGISTER Is 0 
CMP RO,R1 :1S THE ADDRESS OF a cece, REGISTER THE SAME 
SAS THE ry taal UNDER TEST 
BEG 5$ :BRANCH IF ADDRESSES MATCH 
JSR PC ,DUALADR :LOG AND TRE 
5$ INC STMPO ;SET FLAG WHEN ADDRESSES MATCH 
SUB #2,R1 :POINT TO NEXT REGISTER 
CMP MUIPDRO,R1 ;SEE IF ALL REGISTERS HAVE BEEN READ 
BLOS $ :BRANCH IF MORE TO READ 
ADD #2,R0 ;NOW LOAD THE NEXT REGISTER 
ee oo R7,RO :SEE IF Hae ARE MORE ats ter TEST 
MOV #20$ , SLPERR 7;SET LOOP ERROR POINTER TO START OF TEST 
TST ERRCNT 7SEE IF THERE WERE ANY ERRORS 
BR TST26 > BRANCH TO NEXT yu IF NO ERRORS 
MOV ERRCNT , STMP5 ;SAVE # OF ERRORS FOR PDR OUT 
ERROR +31 > SUMMARY OF DUAL ADDRESS TEST 


ae a - 
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002276 
024044 


172340 


002400 
000002 
172376 
177777 
000401 


024030 
001322 


001322 
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sRAAAAAAAAERERAREEAARAAEEAEAAEAAAARAAAAAARARAAAAAAAAAARARAEAAEAE EES 


COUNT PATTERN IN KERNAL PAR‘S 


;*TES 


:sTHIS TEST RUNS A COUNT PATTERN THROUGH THE 


75126: 


20$: 
001110 


1$: 
2s: 


>" 


001110 4$: 


001210 


T 26 


RNAL PAGE ADDRESS REGISTERS. 
ADDRE 


KE 
F THE COUNT PATTERN DOES NOT MATCH THE DATA RECEVIED, THE ike 
AT THE END OF 


pn BB... re a a er nN 


S$ IS GIVE 
SCOPE 
JSR PC, CLEANUP 
MOV #1$,$LPERR 
CLR R1 
MOV #KIPARO,RO 
MOV R1, (RO) 
MOV (RO) .R2 
MOV R1,R4 
CMP R4.R2 
BEQ 
JSR PC ,PARCOUNT 
ADD #2,R 
CMP #KDPAR7 RO 
BHIS 2 
CMP #177777, R1 
BEQ 4$ 
ADD #401,R1 
BR 1$ 
MOV #20$,$LPERR 
TST ERRCNT 
BR _TS1T27 
MOV ERRCNT,STMPS 
ERROR +32 


: *DATA PATTERN, AND BAD DATA ARE REPORTED. 
ERROR N. 


: INITIALIZE ERROR LOCATIONS 
:SET L ON Ag 


:CLEAR REGISTER T 


COUNT 


; LOAD 
READ patton th BACK TO R2 


POINTER T 
O HOLD COUN 
PUT ADDRESS OF FIRST REGISTER INTO RO, 


INTO REGIST 


;PUT PATTERN IN 


:LOG AND REPORT COUNT E 
:POINT TO NEXT REGISTER 
sSEE IF Hh yam ag THE KDPAR7 PAR 


SBRANCH IF 


THE TEST 


0 1$ 
T PATTERN 


RS 
:SEE IF DATA MATCHES PATTERN 
;BRANCH IF DATA IS GOOD 


E 
:SEE IF COUNT HAS REACHED 177777 
;BRANCH IF SO 
: INCREASE COUNT PATTERN 
;BRANCH TO CONTINUE TEST 
+ SET LOOP POINTER y By OF TEST 


: SBRANC 
:SAVE # OF E 


; SUMMARY OF COUNT PATTERN FAILURES 


em a a 


SEQUENCE 68 
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ae 
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024140 
2380 024142 
024146 


024250 
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002276 
024156 
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002400 
000002 
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177777 
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FAA AAAEAAAAAAAAEAEAEAAAAEEAAAAARERARAAAAAAAAAAEAARAAAEAAAAAAEARE ENE 


;#TEST 27 


COUNT PATTERN IN SUPERVISOR PAR‘S 


:*THIS TEST RUNS A COUNT PATTERN THROUGH THE SUPERVISOR PAGE ADDRESS REGISTERS. 
THE COUNT PATTERN DOES NOT MATCH THE DATA RECEVIED, THE REGISTER ADDRESS, 


«IF 
DATA PATTERN, AND BAD DATA ARE REPORTED. 


;*OF ERRORS IS GIVEN. 


AT THE END OF THE TEST A SUMMARY 


+ RRR RERER ERA REAR RR RRA R ERA RRER ARERR ERE 


TST27: SCOPE 
20$: JSR PC, CLEANUP 
001110 MOV #1$,$LPERR 
CLR R1 
1$: MOV #SIPARO,RO 
2$: MOV R1, (RO) 
MOV (RO) .R2 
MOV R1,R4 
CMP R4,R2 
BEQ 
JSR PC ,PARCOUNT 
3$: ADD #2,R0 
CMP #SDPAR7 RO 
BHIS  2$ 
CMP #177777.R1 
BEQ 4 
ADD #401.R1 
001110 4$: MOV #20$,$LPERR 
TST ERRCNT 
BR TST30 
001210 MOV ERRCNT,$STMP5 
ERROR +32 


3 ee ERROR LOCATIONS 
OOP ON ERROR 


TL POINTER TO I 
“CLEAR REGISTER TO HOLD COUNT PATTERN 
;PUT ADDRESS OF FIRST REGISTER INTO RO 
;LOAD COUNT INTO REGISTER 
;READ REGISTER BACK TO R2 
:PUT PATTERN IN R4 
;SEE IF DATA MATCHES PATTERN 
;BRANCH IF DATA IS GOOD 
;LOG AND REPORT COUNT E 
:POINT TO NEXT REGISTER 
s;SEE IF YOU PASSED THE SDPAR7 PAR 
;BRANCH IF MORE TEST 
SEE IF COUNT HAS REACHED 177777 
;BRANCH IF SO 


Fe oy a Rte ATTERN 
O CONTINUE TEST 
“SET LOOP POINTER TO START OF TEST 
:SEE IF THERE WERE ANY ERRORS 
; BRANCH TO NEXT TEST Ld NO ERRORS 


;SAVE # OF ERRORS FOR TYPEOUT 
; SUMMARY OF COUNT PATTERN FAILURES 


69 


ee 


-—-- or - 


| ES 
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2385 


024252 
sage 


002276 
024270 


172340 


002400 
000002 
172376 
177777 
000401 


024254 
001322 


001322 
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SEQUENCE 


-SBTTL TEST # 30 - COUNT PATTERN IN USER PAR'S 


+ ERE AAAEAEAAEAEAAAAAAEAEEEAAEAAAAAEEAEAKAEAEAAEEEEREEEEE 


ee 
38 


+t 


:*IF 


; *DATA PATTERN, 


sTeST 30 COUNT PATTERN IN USER PAR'S 


“THIS TEST RUNS A COUNT PATTERN THROUGH THE USER PAGE ADDRESS REGISTERS. 
THE COUNT PATTERN DOES NOT MATCH THE DATA RECEVIED, THE REGISTER ADDRESS, 
AND BAD DATA ARE REPORTED. AT THE END OF THE TEST A SUMMARY 


;*OF ERRORS IS GIVEN. 


TPRBASEASACLAALALLS ELE LARA ALAR ERE RAR RRR R AAA RRR A RAR RAR ASL A SDS DS 


1ST30: SCOPE 
20$: JSR PC, CLEANUP s INITIALIZE ERROR LOCATIONS 
001110 MOV #i1$,S$LPERR *SET LOOP ON ERROR POINTER TO 1s 
CLR R *CLEAR REGISTER TO HOLD COUNT PATTERN 
1$: MOV #KIPARO,RO ;PUT ADDRESS OF FIRST REGISTER INTO RO 
2$: MOV R1, (RO) ‘LOAD COUNT INTO REGISTER 
MOV (RO) .R2 “READ REGISTER BACK TO R2 
MOV R1,R4 ‘PUT PATTERN IN R4 
CMP R4,R2 “SEE IF DATA MATCHES PATTERN 
BEQ 3$ *BRANCH IF DATA IS GOOD 
JSR PC ,PARCOUNT “LOG AND REPORT COUNT ERROR 
3$: ADD “POINT TO NEXT REGISTER 
CMP AR7 RO ; SEE IF YOU PASSED THE KDPAR7 PAR 
BHIS 2 H IF MORE TE 
CMP #177777,R1 :SEE 1 IF COUNT HAS REACHED 177777 
BEQ 4$ H IF SO 
ADD #401,R1 <ONCRE REASE COUNT PATTERN 
BR 1$ “BRANCH TO CONTINUE TEST 
001110 4$: MOV #20$,$LPERR :SET LOOP POINTER TO 0 START OF TEST 
TST ERRCNT *SEE IF THERE WERE ANY ERRORS 
BR TST31 : ;BRANCH TO NEXT TEST IF NO ERRORS 
001210 MOV ERRCNT,$TMP5 VE # OF ERRORS F 


7 SA OR TYPEOUT 
ERROR +32 :SUMMARY OF COUNT PATTERN FAILURES 


ee er ee ee 


70 
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2389 


2390 


002276 
024402 


172300 


000361 


002400 
000002 
172336 
177777 
000401 


024366 
001322 


001322 


001110 


001110 


001210 
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SEQUENCE 71 


-SBTTL TEST # 31 - COUNT PATTERN IN KERNAL PDR'S 


5 AREA AAAAAEAAAAAAARAAAAERERAAAAAAAARAEAEARARAAAAAAAAAEARARREA EAA E EEE 


COUNT PATTERN IN KERNAL PDR‘'S 


:*TEST 31 

st 

* THIS 

; *SINCE BITS ie 04> 
ANNOT BE SET BY DIRECT 


: DATA PATTERN, PAN BAD DA 
;*OF ERRORS IS GIVE 


TTERN DOES 


TEST RUNS A COUNT PATTERN THROUGH THE KERNAL PAGE DESCRIPTOR REGISTERS. 
AND <0> ARE NOT INPLEMENTED, AND BITS ee 06> 


*C BE LOAD, THEY ARE MASKED OUT 

:* THESE BITS oh. or iat SENT TO THE DESCRIPTOR REGISTER TO FIND BAD ETCHES. 
COUNT NOT MATCH THE DATA RECEVIED, THE REGISTER ADDRESS, 

ATA ARE REPORTED. UMMAR Y 


OF THE DATA COMPARE. 


AT THE END OF THE TEST A S 


TORE RSSEASLALALLASEAS ALAA LALA ELAR SALAS ERA RAR RRA AR ARERR ARAL ALAS & 


7$T31: 


20$: 


1$: 
2$: 


3$: 


4$: 


SCOPE 
J 


PC, CLEANUP 
#1$,$LPERR 


™ 


‘flail 
#401,R1 
#20, $LPERR 
ERRCNT 


TST32 
ERRCNT,STMP5 
+32 


: INITIALIZE ERROR LOCATIONS 
LOOP ON ERROR POINTER TO 1$ 

“CLEAR REGISTER TO HOLD COUNT PATTERN 

;PUT ADDRESS OF FIRST REGISTER INTO RO 
LOAD COUNT INTO REGISTER 

;READ REGISTER BACK TO R2 

;PUT PATTERN IN R4 

:CLEAR BITS NOT FOUND 7 REGISTER 

7SEE IF DATA MATCHES PATTERN 

;BRANCH IF DATA IS GOOD 


;LOG AND REPORT COUNT E 

:POINT TO NEXT REGISTER 

;SEE IF YOU PASSED THE KDPDR7 PDR 
SBRANCH IF MORE TEST 

SEE IF COUNT HAS REACHED 177777 
;BRANCH IF SO 


Fase rg COUNT PATTERN 
TO CONTINUE TEST 
SET Loop POINTER TO START OF TEST 
; SEE IF THERE WERE ANY ERRORS 
;;BRANCH TO NEXT TEST NO ERRORS 
ERRORS FOR TYPEOUT 
: SUMMARY OF COUNT PATTERN FAILURES 


ee ee ee 


me a ee eee ——— —— 
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2394 -SBTTL TEST # 32 - COUNT PATTERN IN SUPERVISOR PDR'S 


fF AAAAAAAAAAAAAAAAAAAAAAAAARAAEAAAAAAAAAAAAAARRARAAAAARAAEERAAER EAE 


; *TEST 32 COUNT PATTERN IN SUPERVISOR PDR'S 
: STHIS TEST RUNS A COUNT PATTERN THROUGH THE SUPERVISOR PAGE DESCRIPTOR REGISTERS. 
; *SINCE BITS <05:04> AND <0> ARE Nor INPLEMENTED, AND BITS <07:06> 
*CANNOT BE SET BY DIRECT LOAD, ARE MASKED OUT OF THE DATA COMPARE. 
;* THESE BITS ARE STILL SENT TO ME DESCRIPTOR REGISTER TO FIND BAD ETCHES. 
F THE COUNT PATTERN DOES NOT MATCH THE DATA RECEVIED, THE REGISTER ADDRESS, 

:sDATA PATTERN. AND BAD DATA ARE REPORTED. AT THE END OF THE TEST A SUMMARY 
- KEE AAAAEAEAAARAAEEEAEAEAAAEEAAAEKREARAAAAAAAEAEAAATAAAREREAREAEEEE 

024502 000004 S132: SCOPE 

2395 024504 004737 002276 20$: JSR PC, CLEANUP : INITIALIZE ERROR LOCAT LONS 

024510 012737 024520 001110 MOV #1$,$LPERR *SET LOOP ON ERROR POINTER TO 1$ 

024516 005001 CLR R1 *CLEAR REGISTER TO HOLD COUNT PATTERN 

024520 012700 172200 1$: MOV #S1PDRO, RO ;PUT ADDRESS OF FIRST REGISTER INTO RO 

024524 010110 2$: MOV (RO) LOAD COUNT INTO REGISTER 

024526 011002 MOV (nd) Re “READ REGISTER BACK TO R2 

024530 010104 MOV *PUT PATTERN IN R4 

024532 042704 000361 BIC F 000361 .R 4 “CLEAR BITS NOT FOUND IN REGISTER 

024536 020402 CMP R4,R2 “SEE IF DATA MATCHES PATTERN 

024540 001402 BEQ 3$ “BRANCH IF DATA IS GOOD 

024542 004737 002400 JSR PC ,PARCOUNT :LOG AND REPORT COUNT ERROR 

024546 062700 000002 3$: ADD ; =POINT TO NEXT REGISTER 

024552 022700 172236 CMP #SDPDR7,RO =SEE IF YOU PASSED THE SDPDR7 PDR 

024556 103362 BHIS = BRANCH TEST 

024560 022701 177777 CMP #177777, R1 *SEE IF COUNT HAS REACHED 177777 

024564 001403 BEQ =BRANCH IF SO 

024566 062701 000401 ADD #401.R1 : INCREASE COUNT PATTERN 

024572 000752 BR 1$ =BRANCH TO CONTINUE TEST 

024574 012737 024504 001110 4S: MOV #20$,$LPERR *SET LOOP POINTER TO START OF TEST 

024602 005737 001322 TST ERRCNT ; SEE IF THERE WERE ANY ERRORS 

024606 000404 BR TST33 > :BRANCH TO NEXT TEST IF NO ERRORS 

024610 013737 001322 001210 MOV ERRCNT,$TMPS §: SAVE # OF ERRORS FOR TYPEOUT 

024616 104032 ERROR +32 “SUMMARY OF COUNT PATTERN FAILURES 


- eS 
———— ——— 
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002400 
000002 
177636 
177777 
000401 


024622 
001322 


001322 


001110 


001110 


001210 
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5 AAA AAAEAAAAARERAEEAEAAAERAERARAAAAAAARARAAAAARAEAERAREAARR ERAS 


TRTEST 33 
_- 


COUNT PATTERN IN USER PDR'S 


S TEST RUNS A COUNT PATTERN THROUGH THE USER PAGE re cn? 08 


THI 
; *SINCE ase <05 :04> 
T BE SET BY DIRECT 


AND <0> ARE NOT INPLEMENTED, 


AND BITS < 


*C LOAD, THEY ARE MASKED OUT OF THE DATA COMPARE. 
: » THESE BITS ARE Fab ae ine ak THE DESCRIPTOR REGISTER TO FIND BAD ETCHES. 


THE COUNT 


«IF 
: #DATA PATTERN, PAND BAD DATA ARE "REPORTED. 
ERRORS IS GIVEN. 


TCH THE DATA RECEVIED, THE whe ADDRESS, 
AT THE END OF THE TEST A SUMMARY 


BA re Bg. > En ee 


15133 : SCOPE 
20$: JSR PC, CLEANUP 
MOV #1$,$LPERR 
CLR R1 
1$: MOV #UIPDRO,RO 
2$: MOV R1, (RO) 
oy a) Re 
BIC #000361 ,R4 
CMP R4,R2 
BEQ 3$ 
JSR PC ,PARCOUNT 
38: ADD # e 
CMP #UDPDR7 RO 
BHIS 2 
CMP #177777 .R1 
BEQ 4$ 
ADD #401.R1 
BR 1$ 
4$: MOV #20$,$LPERR 
TST ERRCNT 
BR TST34 
MOV ERRCNT, STMPS 
ERROR +32 


: INITIALIZE ERROR LOCATIONS 

:SET LOOP ON ERROR POINTER TO 1$ 

; TO HOLD COUNT PATTERN 
s;PUT ADDRESS OF FIRST — INTO RO 


R 
NOT FOUND 3 REGISTER 
: SEE IF DATA MATCHES PATTERN 
; BRANCH IF DATA IS GOOD 
:1.0G AND REPORT COUNT E 
:POINT TO NEXT REGISTER 
= SEE 4 YOU PASSED THE UDPDR7 PDR 
H IF MORE TES 
: SEE IF COUNT HAS REACHED 177777 
taeaae IF SO 
NCREASE COUNT PATTERN 


‘ BRANCH TO CONTINUE TEST 
:SET LOOP POINTER TO START OF TEST 
WERE ANY ERRORS 


:SEE IF THERE 
ee H TO NEXT TEST IF NO ERRORS 
;SAVE # OF E OR T 


; SUMMARY OF COUNT PATTERN FAILURES 


J. 6 
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2411 -SBTTL TEST # 34 ~ BYTE ADDRESSING OF KERNAL PAR'S 
SERA AAAEAAEAAAARAERAAAEAAAAAAAAAAEARAAAAAAARAERAERARAAERAKERARER ERED 
TEST 34 BYTE ADDRESSING OF KERNAL PAR'S 
. THIS TEST CHECK THE LOGIC ASSOCIATED WITH BYTE ADDRESSING 
:* OF KERNAL PAGE ADDRESS REGISTERS. IT CAN BE ASSUMED THAT IF 
:* ONE REGISTER WORKS Y ALL WORK BECAUSE THE REGISTERS 
:* HAVE ALL BEEN TEST TED. 
2s EEE AAEKARERAAAAEAAAAEEAEAEKEAAAKREKCAEAREAAARAARARAAEAAAAARAAAEAEAEEEE 
24736 TST34: SCOPE 
024740 012737 024756 001110 20$: MOV #11$,SLPERR :SET LOOP ON ERROR POINTER TO 11$ 
024746 012702 000014 MOV #14,R “PUT EXPECTED DATA IN R2 
024752 012700 172340 MOV #KIPARO,RO “PUT ADDRESS OF REGISTER IN RO 
024756 005037 172340 11$: CLR K “CLEAR THE REGISTER UNDER TEST 
024762 112710 172014 MOVB  #172014,(RO)  :LOAD LOWER BYTE OF REGI 
024766 013701 172340 MOV KIPARO,R1 “READ REGISTER INTO 
4772 020102 CMP : “SEE IF ONLY LOWER BYTE WAS WRITTEN 
4774 001401 BEQ : H IF DATA MATCHES 
024776 104033 ERROR +33 =DIDN'T LOAD CORRECT BYT 
025000 012737 025016 001110 1S: MOV #12$,S$LPERR = SE ON ERROR POINTER TO 12% 
025006 012706 172341 MOV #KIPARO+1,RO §_:POINT TO UPPER BYTE OF REGISTER 
025012 012702 052014 MOV #52014,R2 ‘LOAD EXPECTED DATA INTO R 
025016 112710 000124 12$: MOVB  #124,( “WRITE UPPER BYTE OF REGISTER 
025022 013701 172340 MOV KIPARO,R1 ‘READ REGISTER INTO 
025026 020102 CMP R1,R2 “SEE IF ONLY UPPER BYTE WAS WRITTEN 
025030 001401 BEQ 2$ BRANCH TO EXIT IF CORRE 
025032 104033 ERROR +3 “DIDN'T LOAD CORRECT BYTE 
025034 012737 024740 001110 28: MOV #20$,$LPERR “SET LOOP POINTER TO START OF TEST 


as ————— 


a en ee - 
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TEST # 35 ~- BYTE ADDRESSING OF SUPERVISOR P 
2416 - SBTTL TEST # 35 - BYTE ADDRESSING OF SUPERVISOR PAR'S 


4, 
- 


{AAAAAAARERAAREEAAERAAAAEAAAARAERAEARRARAEARARRARARRERAAARARRAREERER ED 


— — -- 


SSTEST 35 BYTE ADDRESSING OF SUPERVISOR PAR'S 
+ 
i THIS TEST CHECK THE LOGIC ASSOCIATED WITH BYTE ADDRESSING 
:* OF SUPERVISOR PAGE ADDRESS REGISTERS. IT CAN BE ASSUMED THAT IF 
:* ONE REGISTER WORKS, THEY ALL WORK BECAUSE THE REGISTERS . 
:* HAVE ALL BEEN TESTED. 
TITTLE LLL LLL LLL LLL ELL t ttt 
025042 000004 $735: SCOPE 
2417 025044 012737 025062 001110 20$: MOV #11$,$LPERR :SET LOOP ON ERROR POINTER TO 11$ 
025052 012702 14 MOV #14,R “PUT EXPECTED DATA IN R 
025056 012700 172240 MOV #SIPARO,RO : SS OF REGISTER IN RO 
025062 005037 172240 11$: CLR SIP =CLEAR THE REGISTER UNDER 
025066 112710 172014 MOVB #172014,(RO) :LOAD LOWER BYTE OF REGISTER 
025072 013701 172240 MOV SIPARO,R1 “READ REGISTER INTO R1 
025076 020102 CMP 2 “SEE IF ONLY LOWER BYTE WAS WRITTEN 
25100 001401 BEQ 1$ : H IF DATA MATCHES 
025102 104033 ERROR +33 :DIDN'T LOAD CORRECT BYTE 
25104 012737 025122 001110 1S: MOV #12$,$LPERR “SET ON E POINTER TO 12$ 
025112 012700 172241 MOV #SIPARO+1,RO | _:POINT TO UPPER BYTE OF REGISTER 
025116 012702 052014 MOV #52014,R2 ;LOAD EXPECTED DATA INTO R2 
025122 112710 000124 12$: MOVB . #124, (RO) R BYTE OF REGISTER 
025126 013701 172240 7 MOV. ‘ SIPARO,R1 “READ REGISTER INTO R1 
025132 020102 CMP R1,R2 *SEE IF ONLY YTE WAS WRITTEN 
025134 001401 BEQ 2$ “BRANCH TO EXIT IF C 
025136 104033 ERROR +3 “DIDN'T LOAD CORRECT BY rE. 
025140 012737 025044 001110 28: MOV #20$,$LPERR “SET LOOP POINTER TO START OF TEST 
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TEST # 36 ~ BYTE ADDRESSING OF USER PAR 


2421 .SBTTL TEST # 36 - BYTE ADDRESSING OF USER PAR'S 

FAA AAAAAAAAAAAAAAAAEAAEAAAAAAAAAAAARERAERERAEREREERAREEARRE REED 
;*TEST 36 BYTE ADDRESSING OF USER PAR'S 
:* THIS TEST CHECK THE LOGIC ASSOCIATED WITH BYTE ADDRESSING 
3 OF USER PAGE ADDRESS REGISTERS. IT CAN BE ASSUMED THAT IF 
:* ONE REGISTER WORKS, THEY ALL WORK BECAUSE THE REGISTERS 
:* HAVE ALL BEEN TESTED. 
3 “REAR AAEAAEAAAKEAAAKAAAEEAEAAERAAREKEEKAAAEAEAAAAKREAAAAEEAAAKRAKAKKEEE 

025146 000004 1ST36: SCOPE 

2422 025150 012737 025166 001110 208: MOV #11$.SLPERR :SET LOOP ON ERROR POINTER TO 11$ 
0 5156 012702 000014 MOV #14,R [PUT EXPECTED DATA IN R2 
5162 012700 177640 MOV #UIPARO RO :PUT ADDRESS OF REGISTER IN RO 

025166 37 177640 11$: CLR [CLEAR THE REGISTER UNDER TEST 

025172 112710 172014 MOVB  #172014,(RO)  :LOAD LOWER BYTE OF REGISTE 

025176 013701 177640 MOV UIPARO,R1 [READ REGISTER INTO R1 

025202 020102 CMP R1,R2 [SEE IF ONLY LOWER BYTE WAS WRITTEN 

5 1401 BEQ 1$ “BRANCH IF DATA MATCHES 

025 104033 ERROR +33 [DIDN'T LOAD CORRECT BYTE 

025210 012737 025226 001110 1$: MOV wi2s. SLPERR :SET LOOP ON ERROR POINTER TO 12$ 

025216 012700 MOV IPARO+1,RO | :POINT TO UPPER BYTE OF REGISTER 

025222 012702 052014 MOV #52014,R R2- [LOAD EXPECTED DATA INTO R2 

0 5206 112710 000124 12$: MOVB #124,(RO) ‘WRITE UPPER BYTE OF REGISTER 

025 013701 177640 MOV UIPARO.R1 [READ REGISTER INTO R1 

025236 020102 CMP R1,R2 :SEE IF ONLY UPPER BYTE WAS WRITTEN 

025240 001401 BEQ 2$ BRANCH TO EXIT IF CORRECT 

025242 104033 ERROR +33 :DIDN'T LOAD CORRECT BYTE 

025244 012737 025150 001110 2s: MOV #20$,$LPERR =SET LOOP POINTER TO START OF TEST 


in 


025252 


2427 0 2 54 


02 
025350 


012737 
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TEST # 37 ~ BYTE ADDRESSING OF KERNAL PDR'S 


025272 
000014 
172300 
eee 
172014 
172300 


Ogoane 
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001110 


001110 


SEQUENCE 
.SBTTL TEST # 37 ~ BYTE ADDRESSING OF KERNAL PDR'S 
{ RAAAAAAAAAAAAAAAEEAAAAAEEAAAAARARARAEEAAAAERAAERAEAARERREARAERE ERE EE 
**TEST 37 BYTE ADDRESSING OF KERNAL PDR'S 
**® 
:* THIS TEST CHECK THE LOGIC ASSOCIATED WITH BYTE ADDRESSING 
j* RNAL PAGE DESCRIPTOR REGISTERS. IT CAN BE ASSUMED THAT IF 
:* ONE REGISTER WORKS, THEY ALL WORK BECAUSE THE REGISTERS 
:* HAVE ALL BEEN TESTED. 
22 « RERRRARERERERERERERERERERERERREREREEERERERERRERERRRREREERE REE 
TST37: SCOPE 
20$: MOV #11$,$LPERR :SET LOOP ON ERROR POINTER TO 11$ 
MOV #14,R2 =PUT EXPECTED DATA IN R2 
MOV #KIPDRO,RO :PUT ADDRESS OF REGISTER IN RO \ 
11$: CLR KI =CLEAR THE REGISTER UNDER TEST , 
MOVB #172014. (RO) =LOAD LOWER BYTE OF REGIST 
MOV KIPDRO,R1 “READ REGISTER INTO R1 
CMP R1,R2 *SEE IF ONLY LOWER BYTE WAS WRITTEN 
BEQ 1$ ; H IF DATA MATCHE 
ERROR 3 :DIDN'T LOAD CORRECT BYTE 
1$: MOV #12$,S$LPERR :SET LOOP ON E POINTER TO 12$ 
MOV IPDRO+1,RO §:POINT TO UPPER BYTE OF REGISTER 
MOV #52014,R2 =LOAD EXPECTED DATA INTO R2 
12$: MOVB #124,(RO) “WRITE UPPER BYTE OF REGISTER 
MOV KIPDRO,R1 “READ REGISTER INTO R 
CMP RI R2 :SEE IF ONLY UPPER BYTE WAS WRITTEN 
BEQ 2$ :BRANCH TO EXIT IF CORRECT 
ERROR +33 =DIDN'T LOAD CORRECT BYTE 
MOV #20$,$LPERR =SET LOOP POINTER TO START OF TEST 


025254 001110 2$: 
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TEST # 40 = BYTE ADDRESSING OF SUPERVISOR PDR 


! 
| 
2431 . SBTTL TEST # 40 - BYTE ADDRESSING OF SUPERVISOR PDR'S | 
SERA EAAAAAARAAEAAAAEAAEAAAAAAEAARAERAAARERARAAERRERARRER ERS 
**TEST 40 BYTE ADDRESSING OF SUPERVISOR PDR'S 
2¢ 
4 fz THIS TEST CHECK THE LOGIC ASSOCIATED WITH BYTE ADDRESSING | 
:* OF KERNAL PAGE DESCRIPTOR REGISTERS. IT CAN BE ASSUMED THAT IF , | 
;* ONE REGISTER WORKS, THEY ALL WORK BECAUSE THE REGISTERS | 
:* HAVE ALL BEEN TESTED. 
2's KEE AEAAAEAAEEAAEEAAEAEAAEKEAAAKEKAAAKRAARAAAAKAARAKRAARAAREAREARAAKEAEE 
025356 900004 TST40: SCOPE 
2432 025360 012737 025376 001110 20S: MOV #11$,$LPERR :SET LOOP ON ERROR POINTER TO 11$ 
025 012702 000014 MOV #14,R2 :PUT EXPECTED DATA IN R2 
025 012700 172200 MOV #SIPDRO,RO -sPUT ADDRESS OF REGISTER IN RO 
025376 005037 172200 11$: CLR SIPDRO :CLEAR THE REGISTER UNDER TEST 
025402 112710 172014 MOVB #172014, (RO) :LOAD LOWER BYTE OF REGISTER 
025406 013701 172200 MOV SIPDRO,R1 “READ REGISTER INTO R1 
025412 020102 CMP R1,R2 SEE IF ONLY LOWER OaYTE WAS WRITTEN 
025414 001401 BEQ 1$ “BRANCH IF DATA MATCHES 
025416 104033 ERROR +33 :DIDN'T LOAD CORRECT BYTE 
025420 012737 025436 001110 1$: MOV #12$,$LPERR :SET LOOP ON ERROR POINTER TO 12$ 
5426 012700 172201 MOV #SIPDRO+1,RO :POINT TO UPPER BYTE OF REGISTER 
025432 012702 052014 MOV #52014,R2 sLOAD EXPECTED DATA INTO R2 
025436 ,112710 000124 12$: MOVB #124, (RO) :WRITE UPPER BYTE OF REGISTER 
'' 925442 ‘013701 172200 MOV SIPDRO,R1 sREAD REGISTER INTO R1 
025446 020102 CMP a4 »R2 :SEE IF ONLY UPPER BYTE WAS WRITTEN 
063420 001401 BEQ 2$ ;BRANCH TO EXIT IF CORRECT 
025452 104033 ERROR +33 :DIDN'T LOAD CORRECT BYTE 
025454 012737 025360 001110 2$: MOV #20$,$LPERR :SET LOOP POINTER TO START OF TEST 





eee en ere 
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TEST # 41 =~ BYTE ADDRESSING OF USER PDR'S 


2436 -SBTTL TEST # 41 - BYTE ADDRESSING OF USER PDR‘S | 


5 AAA AAAAAAAAAAAAAAAAAAAAAAARAAAAAAAAAAAAARAEAARAAAAAAEAAR AREA ES 


TEST 41 BYTE ADDRESSING OF USER PDR'S 


THIS TEST CHECK THE LOGIC ASSOCIATED WITH BYTE ADDRESSING 

OF USER PAGE DESCRIPTOR REGISTERS. IT CAN BE ASSUMED THAT IF 
ONE REGISTER WORKS, THEY ALL WORK BECAUSE THE REGISTERS 

HAVE ALL BEEN TESTED. 


EERE AAAEAAAAAAAAAAAEAAAAEAAAAAEAAAAAEAARARARAAAAKEAAAEAAEEAAEE 






see 








a, ‘ebeoees 









025462 000004 '$T41: SCOPE 
2437 S464 012737 025502 001110 20$: MOV #11$,SLPERR :SET LOOP ON ERROR POINTER TO 11$ 
5472 012702 14 MOV #14,82 PUT EXPECTED DATA IN R2 
5476 01 700 177600 MOV #UIPDRO RO =PUT ADDRESS OF REGISTER IN RO 
025502 177600 11$: CLR ul ER UNDER TE 
025506 Me7i0 172014 MOVB #172014,(RO) OWER BYTE OF REGISTER 
025512 013701 177400 MOV UIPDRO,R1 “READ REGISTER INTO R1 
516 920102 CMP R1,R2 “SEE IF ONLY LOWER BYTE WAS WRITTEN 
55 1401 BEQ 1$ TA MATCHES 
5 104055 ERROR +33 
089 4 012737 025542 001110 1$: MOY #12$,SLPERR 
5532 012700 177601 MOV #uUl 7,RO 
025536 012702 052014 MOV #52014 ,R2 
025542 112710 000124 12$ MOVB #124, (RO) 
025546 013701 177600 MOV UIPDRO, 
025552 020102 CMP R1.R2 
025554 001401 BEQ 2$ 
025556 104033 ERROR +33 
025560 012737 025464 001110 28: MOV #20$,.SLPERR 


ere eee ee} eee ee we ee, -_——- 
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TEST # 42 = DUAL ADDRESSING FOR ALL PAR'S & PDR'S 
2451 .SBTTL TEST # 42 ~ DUAL ADDRESSING FOR ALL PAR'S & PDR | 
see cap eatappenteetinaiataneetoueetteccuteosscccoreossiiing 
:eTEST 42 DUAL ADDRESSING FOR ALL PAR'S & PDR'S 
*® 
ot THIS TEST WILL ENSURE THAT THERE IS NO DUAL ADDRESSING 
* BE TWEEN N GROUPS OF P AR'S AND PDR'S. THAT IS, WHEN YOU 
* REFERENCE A KERNAL te =SPACE PAR YOU ARE REALLY REFERENCING 
:* HAT PAR. FIRST EACH I-SPACE PARO OR IS LOADED WITH 
:* A UNIQUE NUMBER R 0-12 AND THEN THEY ARE EACH CHECKED FOR 
**® ORRECT 
:* EACH GROUP HAS ALREADY BEEN TESTED FOR DUAL ADDRESSING 
:* WITHIN ITS OWN GROUP, SO ONLY ONE REGISTER FROM EACH 
* GROUP NEEDS TO BE TESTED. 
** 
*: : CEA AAAAEEAACAAEAAAEEKEAAAERKEAAEAAERAAAREAEARAKKRAKAEAERERAKAKKEE 
025566 TST42: SCOPE 
2452 025570 012737 025604 001110 20$: MOV #1$.S$LPERR :SET LOOP ON ERROR POINTER TO 1$ 
2453 025576 005000 CLR RO *THIS WILL HOLD THE INDEX OF EACH 
2454 “REGISTER, AND THE COUNT LOADED. 
2455 025600 012704 000006 MOV #6,R ‘NUMBER OF TIMES TO DO THE LOOP 
2456 025604 010070 001356 1$ MOV RO, ROARTAB (RO) “LOAD PAR OR PDR WITH INDEX NUMBER 
2457 025610 062700 000002 ADD #2,R0 *CHANGE INDEX TO POINT TO NEXT REGISTER 
2458 025614 077405 S08 R4, 1s “BRANCH BACK 5 TIMES 
2459 025616 012704 000006 MOV #6.R :DO NEXT LOOP 6 TIMES 
2460 025622 013737 025634 001110 MOV 108 SLPERR *SET LOOP ON ERROR POINTER TO 10$ 
2461 O2 162700 00000 23: SUB #2, ‘ADJUST INDEX FOR REGISTER DESIRED 
2462 025634 017001 001356 10$: MOV @PARTAB(RO).R1 :READ PAR OR PDR INTO R1 
025640 020001 CMP RO,R1 *SEE IF INDEX EQUALS DATA 
025642 001403 BEQ “BRANCH IF INCORRECT REGISTER WAS READ 
2465 025644 016002 001356 MOV PARTAB(RO).R2  :SAVE ADDRESS OF BAD REGISTER 
025650 104016 ERROR +16 “DUAL ADDRESSING ERROR 
2467 025652 077412 S0B R4,2$ “BRANCH BACK 5 TIMES 
2468 025654 012737 025570 001110 MOV #20$, SLPERR *SET LOOP ON ERROR POINTER TO START OF TEST 
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TEST # 43 = TEST THAT PAR-PDR'S NOT AFFECTED BY RESET 


2478 _SBTTL TEST # 43 = TEST THAT PAR-PDR'S NOT AFFECTED BY RESET 
5 AAA AAAAAAAAAAAAAAAAEEAAAEAAARAAAAAEAAAAAAAAAAAAARAAAARAAAARRER EE 
[TEST 43 TEST THAT PAR-PDR'S NOT AFFECTED BY RESET 
*® 
oe THIS TEST CHECKS TO SEE THAT THE KERNEL SUPERVISOR OR USER 
ot PAR/PDR'S ARE NOT AFFECTED BY THE EXECUTION OF A ‘RESET’ 
:* INSTRUCTION. ALL WRITEABLE BITS ARE SET TO A ‘‘I’' IN THE 
:* PAR/PDR'S: THEY ARE THEN READ TO SEE THAT THEY REMAINED 
:* UNCHANGED . 
*® 
*: 2 REEEKEAAEARAEEAAARAARAAAAEAEAEAAEAAEAAEAERAAAAAKRAARAAARERAEAREEAAAERREAEEESE 
5662 1S143: SCOPE 
2479 025664 012703 000020 1$: MOV #20,R3 -LOAD LOOP COUNTER WITH A 16 
2480 025670 012701 172300 MOV #KIPDRO,R1 “LOAD FIRST ADDRESS OF PDR INTO R1 
2481 025674 012702 172340 MOV #KIPARO,R2 LOAD FIRST ADDRESS OF PAR INTO R2 
2 5700 012721 177777 21$: MOV #-1,(R1)+ :SET BITS IN PDR TO 1°S 
2483 025704 012722 177777 MOV #~1_ (R2)+ *SET BITS IN PAR'S TO 1'S 
26484 025710 O555 SOB R3,21$ “LOOP UNTIL ALL KERNAL PAR/PDR'S LOADED 
2485 025712 012703 000020 MOV #20,R3 “LOAD LOOP COUNTER WITH A 16 
2486 025716 012701 172200 MOV #SIPDRO,R1 *LOAD FIRST ADDRESS OF PDR INTO R1 
ZB? Ode72> O1S902 175940 MOV —s AS IPARO-R2 SLOAD FIRST ADDRESS OF PAR INTO R2 
5ia8 029726 012721 177777 22$: MOV #-1,(R1)+ [SET BITS IN PDR TO 1°S 
2489 025 012722 177777 MOV #~1- (R2)+ *SET BITS IN PAR'S TO 1°S 
SOB R3,22$ “LOOP UNTIL ALL SUPERVISOR PAR/PDR'S LOADED 
24 012703 000020 MOV #20,R3 “LOAD LOOP COUNTER WITH A 16 
2492 025744 012701 177600 MOV #UIPDRO,R1 ;LOAD FIRST ADDRESS OF PDR INTO R} 
249 025790 012702 177640 MOV #HUIPARO,R2 LOAD FIRST ADDRESS OF PAR INTO R2 
2494 025754 012721 177777 23$: MOV #~1,(R1)+ :SET BITS IN PDR TO 1°S 
2495 025760 012722 177777 MOV #~1_ (R2)+ “SET BITS IN PAR'S TO 1°S 
2496 025764 077305 SOB =—s«R3, 238 ;LOOP UNTIL ALL USER PAR/PDR'S LOADED 
2497 025766 000005 RESET — GITSSUE AN “INIT BY EXECUTING A RESET 
2498 025770 012700 172300 MOV #KIPDRO,RO “LOAD ADDRESS OF FIRST KERNEL PDR IN RO 
2499 025774 012704 000020 MOV #20,R4 *LOAD LOOP COUNTER WITH A 16 
2500 026000 011001 2$: MOV (RO) .R1 [READ A KERNEL PDR INTO R1 
2501 0260C° 022701 177416 CMP #177416,R1 TARE ALL THE BITS STILL SET? 
2502 026006 001401 BEQ 3$ ;BRANCH IF YES 
2503 026010 104023 ERROR +23 “KERNEL PDR AFFECTED BY A RESET 
2504 *FOR TIGHTER SCOPE LOOP 
2505 : REPLACE ERROR CALL WITH 
2506 BR = 000773 
2507 026012 062700 000002 3$: ADD #2,R0 : FORM ADDRESS OF NEXT KERNEL PDR 
2508 16 077410 SOB R4,2$ *LOOP TO 2$ UNTIL ALL KERNEL PDR'S CHECKED 
2509 172340 MOV #KIPARO,RO “LOAD ADDRESS OF FIRST KERNEL PAR IN RO 
510 026024 000020 MOV #20,R4 =LOAD LOOP COUNTER WITH A 16 
511 011001 4$: MOV (ROS .R1 “READ A KERNEL PAR INTO RI 
2518 926032 022701 177777 CMP #177777,R1 “ARE ALL THE BITS STILL SET? 
251 36 001401 BEQ $ [BRANCH IF YES 
3514 026040 104023 ERROR +23 “KERNEL PAR AFFECTED BY A RESET 
15 “FOR TIGHTER SCOPE LOOP 
2516 REPLACE ERROR ALL WITH 
2517 :'BR 4$°° = 000773 
2518 2 062700 000002 5$: ADD #2,RO : FORM SS OF NEXT KERNEL 
2519 077410 SOB R4,4$ *LOOP TO 4$ UNTIL ALL KERNEL PAR’S CHECKED 
2520 012700 172200 MOV #SIPDRO,RO “LOAD ADDRESS OF FIRST SUPERVISOR PDR IN RO 
2521 026054 012704 000020 MOV #20,R4 “LOAD LOOP COUNTER WITH A 16. 
2522 026060 011001 6S: MOV (RO) ,R1 “READ A SUPERVISOR PDR INTO 
2523 026062 022701 177416 CMP #177616.R1 “ARE ALL THE BITS STILL SET? 


2524 026066 
2525 026070 
7 


2541 026126 
254 30 


2546 46 
2547 026150 
2548 
2549 
2550 
2551 026152 


2557 956196 
2558 026200 
2559 
2560 
2561 


2562 026202 
25635 026206 
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7$: 


8$: 


9$: 


10$: 


11$: 


12$: 


13$: 





7$ 
+23 


#2.R0 
R4.6$ 
#SIPARO.RO 
#20,R4 
(RO) ,R1 
#177777, R1 
9$ 


+23 


#2,R0 
R4,8$ 

#UIPDRO.RO 
#20 ,R4 
(RO) .R1 

#177416.) 
11$ 

+23 

#2,R0 


R4,10$ 
MUIPARO ,RO 
#20 ,R4 


(RO) RI 
#177777,R1 
13$ 


+23 


#2,R0 
R4,12$ 


es a ee eae ee eee ae 


SEQUENCE 


:BRANCH IF YES 

: SUPERVISOR PDR AFFECTED BY A RESET 
:FOR TIGHTER SCOPE LOOP 

sREPLACE ERROR Aut WITH 

: = 0007 


:" BR 6$*' 

; FORM SS OF NEXT SUPERVISOR PDR 

;LOOP TO 6$ UNTIL ALL_ SUPERVISOR a CHECKED 
; LOAD SS OF FIRST SUPERVISOR PAR IN RO 

7 LOAD COUNTER WITH A 16 

sREAD A SOR P. R1 


SUPERVISOR PAR INT 
TARE ALL THE BITS STILL SET? 
:BRANCH IF YES 
: SUPERVISOR PAR AFFECTED BY A RESET 
:FOR TIGHTER SCOPE LOOP 
SREPLACE ERROR CALL WITH 
:" BR 8$°* = 000 
:FORM ADDRESS OF NEXT SUPERVISOR P 
VISOR PAR"S CHECKED 


AD A I R 
TARE ALL THE BITS STILL SET? 


:BRANCH IF 
USER PDR AFFECTED BY A RESET 
:FOR TIGHTER SCOPE LOOP 
ZREPLACE ERROR CALL WITH 
:'BR 10S" = 000 
:FORM ADDRESS OF NEXT USER PDR 
;LOOP TO 10$ UNTIL ALL USER PDR'S CHECKED 
ADDRESS OF FIRST USER PAR IN RO 


PAR INTO R1 
ARE ALL THE BITS STILL SET? 
> BRANCH YES 
- USER PAR AFFECTED BY A RESET 
OPE LOOP 


CALL WITH 


“FORM ADDRESS OF NEXT USER 
“LOOP TO 12$ UNTIL ALL USER PPAR'S CHECKED 


82 
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TEST # 44 =~ INST. FETCH NOT RELOCATED IN MAINT. MODE 


SEQUENCE 


2576 .SBTTL TEST # 44 ~ INST. FETCH NOT RELOCATED IN MAINT. MODE 
“ee AEKREAATAEAAAAEAEAATAAAAARAEAAEARAAEAAAREAEAAEREAAEAEEEEE 
T*TEST 44 INST. FETCH NOT RELOCATED IN MAINT. MODE 
**® 
ts THIS TEST CHECKS TO SEE THAT WHEN Y MANAGEMENT IS_IN 
:* MAINTENANCE MODE (DEST INATIO Y-RELOCATION), AN INSTRUCTION 
:* FETCH 1S NOT RELOCATED AND A RESET CLEARS THE MA ENANCE BIT 
te (BIT 08) IN SRO. IF THE ‘FETCH'' IS RELOCATED, A PG.LENGTH ABORT 
;* SHOULD OCCUR, CAUSING A HALT SINCE TRAP CATCHER IS PLACED IN VECTOR 250 
**® 
*“* 
;* NOTE: A HALT MAY OCCUR IF MAINT. MODE NOT DISABLED BY RESET 
** 
Peet ititiitiiiti titi tii titi 
026210 TS144: SCOPE 
2577 026212 004737 002172 1$: JSR PC, TOFF ; TURN T-BIT TRAPPING OFF FOR THIS TEST 
2578 026216 012700 172300 MOV #KIPDRO,RO ;LOAD ADDRESS OF FIRST KERNEL PDR INTO RO 
2579 026222 012704 10 MOV #10.R4 “LOAD LOOP COUNTER WITH AN 8 
580 026226 005020 2$: CLR RO)+ :CLEAR PDR - MAPPING PAGE NON-RES, 0 BLKS 
2581 026230 077402 S08 R4,2$ [LOOP TO 2$ UNTIL ALL KERNEL PDR’S CLEARED 
2582 0 12737 000252 000250 MOV WMPVEC+2,.MMVEC LOAD TRAP CATCHER INTO MEM MGM. VECTOR 
2583 026240 005037 000252 CLR MMVEC+2 
2584 “A HALT WILL OCCUR IF RESET FAILS 
2585 [TO DISABLE DEST.-ONLY RELOCATION 
2586 026244 012737 001 172300 MOV #1006,KIPDRO MAP KERNEL PG 0 R/W, 3 BLOCKS LONG. 
2587 026252 012737 026260 001110 MOV #3$,.$LPERR :SET LOOP ON ERROR POINTER TO 3$ 
588 026260 012737 177572 3: MOV #B1T8, SRO : ON DEST-ONL Y RELOCATION 
589 026266 RESET ;SHOULD CLEAR MAINT - WILL ABORT | IF RELOCATED 
2590 026270 032737 000400 177572 BIT #81T8,SRO [WAS MAINT. BIT (BIT 8) "OF SRO C 
2591 026276 00140 BEQ 4$ ;BRANCH IF YES 
2592 026300 005037 177572 CLR SRO :CLEAR SRO SO ERROR CAN BE REPORTED 
2593 02 104024 ERROR +24 :MAINT. MODE NOT DISABLED BY A RESET 
259% =FOR A TIGHTER SCOPE LOOP 
2595 ;REPLACE ERROR CALL WITH 
2596 :"BR 3$'' = 000765 
2597 026306 012706 001100 4$: MOV WKERSTK .KSP ; RESTORE STACK POINTER 
2598 026312 005037 177572 CLR SRO URE SRO IS CLEAR 
2599 026316 012737 003330 000250 MOV WMGMERR,MMVEC  :RESTORE MEM. MGMT. TRAP VECTOR 
2600 026324 012737 000340 000252 MOV #340,MMVEC+2 § :RESTORE MEM. MGMT VE 
2601 026332 012737 026212 001110 MOV #1$,$LPERR ;RESET LOOP ON ERROR POINTER TO 1$ 
2602 026340 737 002226 JSR ; = TURN T-BIT TRAPPING BACK 


. mae —_—_= 
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2616 


ekg 
Oon 
SEe8 
ot 

2298 
aa 
: 

¥ 


3 


é 
: 
: 
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172356 


172310 
172316 
000250 


BEER ERERS 
Oo 
2B8 
ecg 
aay 
x 
e 


! 
026442 052737 000400 177572 
2629 026450 bE Le 4 060000 100001 


2644 
2645 026522 042737 000400 177572 


026530 013737 177572 001264 
2647 026536 013737 177576 001270 
2648 026544 0106357 001256 
2649 026550 012637 1260 
2650 026554 012637 001262 
2651 026560 042737 177572 
2652 026566 104026 


2656 026570 013746 001262 
2657 026574 013 001260 


- SBTTL TEST # 45 - TEST THAT SOURCE NOT RELOCATED IN MAINT. MODE 


TARAS ESASESZASLSLALASEL ELE REAR REL ARERR RARER ARREARS ERR RRA RRA RRR AR SS 


 RTEST 45 TEST THAT SOURCE NOT RELOCATED IN MAINT. MODE 


“2 
:* THIS TEST CHECKS TO SEE THAT WHEN MEMORY MANAGEMENT IS IN 
:* MAINTENANCE MODE, THE SOURCE IS NOT RELOCATED; ONLY THE 
:* DESTINATION IS RELOCATED. KERNEL PAR'S 3 & 4 ARE MAPPED TO 
:* PHYSICAL ADDRESS 60000-77776. PDR4 IS SET TO ALLOW FULL 
:* READ/WRITE BUT PDR3 IS CLEAR ALLOWING NO ACCESS. VIRTUAL 
:* ADDRESSES REFERENCING PAR/PDR'S 4 & 3 ARE USED AS 
:* DESTINATION AND SOURCE RESPECTIVELY. IF THE SOURCE IS 
:* RELOCATED IN MAINTENANCE MODE A MEM. MGMT. TRAP WILL OCCUR 
:* AND THE ERROR WILL BE REPORTED. KERNEL PG. 7 IS MAPPED R/W. 
** 
Pettitt iii iii iii iii 
1S1745: SCOPE 
1$: JSR C, TOFF : TURN OFF T=BIT TRAPPING FOR THIS TEST 
MOV Wot $LPERR *SET LOOP ON ERROR POINTER TO 2$ 
MOV #600,KIPAR3 - :MAP _-KERNAL PAGE 3 TO 12- 
MOV #600. KIPARG “MAP KERNAL PAGE 4 TO 12- 
MOV § #7600,KIPAR7 = ;MAP KERNAL PAGE 7 TO THE I/O PAGE 
CLR I “MAP KERNAL PAGE 3 "NO AC ' 
MOV #776406.KIPDR4 :MAP KERNAL PAGE 4 R/W, 128 BLKS 
MOV #77406.KIPDR7  :MAP KERNAL PAGE 7 R/W, 128 BLKS 
MOV “SET M.M. VECTOR TO 4$ IN C 
MOV #377, 60000 *LOAD ALL 1°S IN LOW BYTE OF TEST LOC. 
MOV #~1,RO “LOAD EXPECTED CONTENTS OF TEST LOC. IN RO 
2$: BIS #B1T8.SRO > TURN ON DEST.-ONLY-RELOCATION 
MOVB 60000.100001 :LOAD HI BYTE OF TEST LOC.-ABORT IF SOURCE RELOCATED 
RESET > TURN OFF DEST.-ONLY-RELOCATION 
MOV 60000,R1 “READ CONTENTS OF TEST LOC. 
CMP RO,R1 7WAS TEST LOCATION LOADED PROPERLY? 
BEQ 3$ “BRANCH IF YES 
ERROR +25 -TEST LOC. NOT LOADED - INST. WAS ABORTED 
“WHEN SOURCE WAS RELOCATED 
‘FOR TIGHTER SCOPE LOOP REPLACE 
: CALL WITH 
: : "= 000764 
3$: MOV WMGMERR.MMVEC  :RESTORE MEM. GAT VECTOR 
MOV #77406,KIPDR3 :MAP KERNAL PAGE 3 R/W, 128 BLKS 
MOV #1$,$LPERR “RESET LOOP ON CE RROn POINTER TO 1$ 
JSR PC, TON ; TURN ST BIT TRAPPING BACK ON 


BR TST46 ; SKIP 
IF THE PROGRAM TRIES TO RELOCATE THE SOURCE, IT SHOULD T TO 4$ 
8 #81T8,SRO ; TURN OFF a AF “OW. Y=RELOCATION THRU PAR/PDR 7 


a: 
* 





IC 

MOV :SAVE REST OF SRO C NTS 

MOV : SAVE CONTENT S OF sho 

MOV 7SAVE VALUE OF THE STACK POINTER 

MOV SAVE PC OF TRAP 

MOV ;SAVE PSwW OF TRAP 

BIC ;CLEAR ERROR BITS IN SRO 

ERROR ; SOURCE APPARENTLY RELOCATED IN MAINT. MODE 
:FOR TIGHTER SCOPE LOOP 


; REPLACE ty CALL WITH A 
;‘NOP** = 000240 


MOV TRAPPS ,~ (SP) PUT PSW OF TRAP BACK ON THE STACK 
MOV TRAPPC ,~ (SP) :PUT PC OF TRAP BACK ON THE STACK 


ee 2+ oe 
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2658 026600 000002 RTI 


;RETURN TO TEST 


es 


a> 


—_———— 
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-SBTTL ADDER TESTS 


ss eeenaaeranaaaaraeneneaeeegaegaganaaagnangaganranagaagageeanagaraenarenese 


ADDER TESTS 


e 
FF AAAAAAAAAAAAAAAAAAAAAAAATAARARAAAAAAAAAAAAREAARAAAAARAAAAEHAATARS 


SEQUENCE 


86 


= 
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2674 .SBTTL TEST # 46 ~ 18-BIT MAPPING ADDER TEST 
“AEE EATAEEAAESAREAREEARAAREREAKEEARAREARERERARAREEEEEE 
“*TEST 46 18-BIT MAPPING ADDER TEST 
** 
‘ o 8 THIS TEST USES "DESTINATION ONLY’ RELOCATION TO CHECK THE 
a FULL ADD PROPERTIES OF THE RELOCATION ADDER. TWELVE PAIRS 
te OF NUMBERS ARE ADDED, GENERTING PHYSICAL ADDRESSES FROM 12k 
_ TO ABOVE 16K. | 
:* 
a. NOTE - PART OF THIS TEST WILL NOT BE RUN IF THERE IS LESS | 
se THAN 16K OF MEMORY ON THE SYSTEM. | 
-* } 
TTT iii iiiiiiiiiiiiititt iii iii re 
026602 000004 T3146: SCOPE | 
2675 : THE FOLLOWING CODE CLEARS ALL THE PAR'S AND PDR'S SO THAT | 
2676 : THE RELOCATION ADDERS CAN BE CHECKED. ONLY THE KERNAL 
2677 : 1-SPACE PAR’ S AND PDR'S WILL BE MAPPED RESIDENT AND R/W. 
012705 172200 MOV #SIPDRO,RS :PUT ADDRESS OF 1ST OF 100 PR'S TO CLEAR TO RS 
2679 026610 012704 000100 MOV #100,.R4 “CLEAR 100 LOCATIONS 
2680 026614 005025 1$ CLR (R5)+ “CLEAR THE LOCA 
1 16 077402 SOB R4,1$ ‘SUBTRACT 1 AND BRANCH IF 
012705 177600 #UIPDRO RS PUT SS OF REMAINING MO PR'S TO CLEAR TO RS 
4 04 MOV #40,R4 “CLEAR 40 LOCATI 
005025 2$ CLR (R5)+ =CLEAR THE LOCATI 
2685 077402 R4 : SUBT H IF NOT ZERO 
012702 0 3$ MOV #10, gR2 =SET COUNTER TO g 
7 026640 012701 172300 MOV rhage. “PUT ADDRESS OF FIRST PDR IN R1 
012721 077406 4$: MOV " 406, this “LOAD 77406 INTO PDR ADDRESSED BY R1 
2689 50 077203 SOB “BRANCH BACK TO 4$ IF R2 IS NOT ZERO 
2690 52 012737 000200 172342 MOV A560 KIPARI ‘MAP PAGE 1 TO 4K->8k (PAGE 0 IS ALREADY MAPPED TO 0->4k) 
2691 012737 000400 172344 MOV #400. KIPAR “MAP PAGE 2 TO 8K->12K 
269¢ 012737 000600 172346 MOV #600 KIPAR “MAP PAGE 3 TO 12K->16K 
| 269 4% 012737 177600 172356 MOV #177600,KIPAR7? =MAP P TO 1/0 PAGE 
26% 026702 005003 CLR R3 > CLEAR THE POINTER USED TO INDEX TO THE TABLE 
704 012704 000004 MOV #4 RG “EXECUTE ROUTINE UNTIL R3=4 
26% 026710 012705 027024 MOV #PATRNS RS ‘MOVE ADDRESS OF THE PATTERN SET (ON NEXT PAGE) TO RS 
2697 026714 012737 026740 001110 MOV #6$,SLPERR *SET LOOP ON ERROR POINTER TO 4$ 
2698 026722 005203 S$: INC R3 > INCREMENT THE TABLE POINTER 
2699 726 012537 172350 MOV (R5)+, KIPARG : LOAD PAR4 WITH VALUE IN TABLE, IDENTIFIED BY R3 VALUE 
2700 012500 MOV (R5)+._RO VIRTUAL ADDRESS IN RO 
2701 026732 013537 001176 MOV a(R5)+,$TMPO ‘SAVE DATA AT TEST LOCATION 
2 736 012501 MOV (R5)+,R1 “PUT DATA PATTERN INTO R1 
270 740 7° 000400 177572 6$: BIS #8118.MMRO = TURN ON DESTINATION ONLY RELOCATION 
2704 026746 010110 MOV R1, (RO) “TRY TO LOAD DATA PATTERN INTO LOCATION IN TABLE 
2705 026750 017502 177774 MOV a-4(R5) .R2 “READ LOCATION INTO R2 
2706 026754 005037 177572 CLR myAR “CLEAR MARO 
2707 026760 020102 CMP R1,R2 “SEE IF DATA MATCHES PATTERN 
2 762 001401 BEQ 7$ “BRANCH IF DATA MATCHES 
2 764 104017 ERROR +17 *RELOCATION FAILED 
2710 766 013775 001176 177774 73%: MOV STMPO,@€-4(R5)  :RESTORE ORIGINAL DATA TO, TEST LOCATION 
2711 4 020304 CMP R3,R4 ; SEE IF WE ARE AT END OF THIS SET 
erie 776 001351 BNE 5$ H BACK IF NOT 
2713 627000 022 000020 CMP #20,R4 “SEE IF ND BATCH OF DATA IS NOW DONE 
2714 027004 001507 BEQ APTIST “BRANCH IF SO 
2715 027006 023727 003022 001000 CMP $LSTBK.#1000 _:DO WE HAVE OVER 16K ON THIS SYSTEM? 
2716 027014 003503 BLE APTTST “BRANCH IF WE DO NOT 
2717 027016 012704 000020 MOV #20,R4 “EXECUTE ROUTINE UNTIL R3=20 


Ne eee 8 
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T # 46 ~ 18-B1T MAPPING ADDER TEST 
2718 027022 000737 BR 5$ 


;GO BACK TO THE ROUTINE 
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2719 4 1 PATRNS: .WORD 0600.1 . «125200 ;R3=1 DATA 
38 BBPERS 998600 Janene 960999 Paris: ue Bose -10000 mre 13500 FREE BAA 
2721 105 071000 : - 105500,071000,125 ‘ 5 DATA 
5/56 7054 111476 072076 -WORD 0604.,111476,072076.,125 ; DATA 
2725 027064 001 100000 100000 -WORD 1000,1 ol 125 sR3=5 DATA 
2724 027074 1 a38 1}¢306 137776 . WORD 1e3¢el) 6,1 6.125205 ;R3=6 DATA 
2725 027104 1125 1 ere 117776 -WORD 1125,10 ABE 5 a Pas 
2 027114 001010 101 102000 . WORD hy Bh 10 2125207 ;R3=1 TA 
2727 ary, 001314 110400 142000 -WORD 1314,110400,14 2125210 ;R3=11 DATA 
é 71 001104 111400 Fg 9 . WORD Et EN BEE 2125211 ;R3=12 DATA 
2 7144 001356 104200 14 -WORD 1356,104200,14 of 2si¢ ;R3=13 DATA 
2 7154 Oo $35 115600 142000 . WORD 1686-1 120m 10 -12521 ;R3=14 DATA 
2731 027164 001 102100 142000 -WORD 1377,102100,14 2125214 ;R3=15 DATA 
2732 027174 on §5) 117700 142000 . WORD \e}-1) 0 eae 5215 ;R3=16 DATA 
273 57606 001377 100100 140000 -WORD 1377,100100,14 2125216 sR3=17 DA 
siRe 027214 001370 101000 140000 -WORD 1370,101000,140000,125217 ;R3=20 DATA 
2736 {RARER AER EEEEEEEAAEEERERAREREREREREREREREREREEEEREREREEE 
2737 :* THIS PIECE OF CODE CHECKS TO SEE IF THE PROGRAM IS RUNNING UNDER 
2738 :* APT, AND THEN LOOKS FOR THE APT SPECIAL ADDRESSING HARDWARE. IF 
2739 :* THE HARDWARE IS FOUND, THE NEXT TWO TESTS OPERATE AS IF THER 
2740 :* WERE A FULL COMPLEMENT OF MEMORY ON THE SYSTEM. 
2741 2 RRR ERAREREREE EE EE ARERR ERERERREERERERARERREEERRERERE ED 
2742 027224 005037 001340 APTTST: CLR HDWF LAG RESET THE HARDWARE PRESENT FLAG 
2743 027230 105737 001244 TSTB SENV sARE WE UNDER APT? 
bg. OS O19 - BEQ TST47 ; BRANCH TO NEXT TEST IF NOT 
745 027236 032737 000200 001250 BIT #B1T7 ,SUSWR ;1S THE HARDWARE SUPPOSED TO GE THERE? 
2746 027244 001414 BEQ TST47 ; ;BRANCH TO NEXT TEST IF FALSE 
2747 027246 012737 027262 000004 MOV #1$,ERRVEC TRAPS TO 4 GO TO 1$ 

- 2748 54 005737 177770 TST RMIREG SPECIAL HARDWARE PRESENT? 
2749 027260 000404 BR 2s ;I1F WE GOT HERE, THE HARDWARE IS THERE 
2750 027262 062706 000004 1$: ADD #4 ,SP ;CLEAN UP STACK AFTER INTERRUPT 
2751 027266 104060 ERROR +60 APT SPECIAL HARDWARE NOT FOUND 

BR TST47 ;;GO TO NEXT TEST 


es 027270 000402 es 
2755 027272 005237 001340 2$: INC HDWFLAG :SET SPECIAL HARDWARE PRESENT FLAG 
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2768 -SBTTL TEST # 47 ~ 18-BIT MAPPING CARRY PROPAGATION 
RARE AAAARAREAARAAERAAEAAEEAAAREEEREKKEEEE 
. <STEST 47 18-BIT MAPPING CARRY PROPAGATION 
*“ 
| :* THIS TEST USES FULL 18-BIT RELOCATION TO CHECK THE CARRY 
, :* PROPAGATION OF THE RELOCATION ADDER. SINCE THIS TEST SCANS 
c* MEMORY FROM 00100000 TO 00740000 ON 8k BOUNDARIES, IT WILL _ 
. :* REPORT ANY HOLES THAT IT FINDS IN Y UP TO THE LAST 
:* BLOCK. THE INFORMATION GIVEN WILL BE THE ADDRESS WHERE 
:* THE HOLE WAS DISCOVERED AND THE FIRST GOOD ADDRESS AFTER 
3* THE HOLE. 
;* e 
ie NOTE = PART OF THIS TEST WILL NOT BE RUN IF THE SYSTEM 
ie MEMORY SIZE IS LESS THAN 16K WORDS. 
** 
. *: REECE AEKEAAKEAEAAAEEEEAAAKAERARAAKHKEAEKAEEAEAEAARAAARAAEAREKEEE 
027276 000004 / 18147: SCOPE 
2769 027300 012700 100100 MOV #100100.RO :LOAD VIRTUAL ADDR FOR PAR4 INTO RO 
2770 027304 012737 000001 177572 MOV #1,.MMRO : TURN ON 18-BIT MAPPING 
2771 027312 005737 001340 TST HDWF LAG “SPECIAL HARDWARE ? 
377e 027316 001004 20$ “BRANCH IF TRUE 
2773 0 023727 003022 001000 SLSTBK.#1000 :IS THERE AT LEAST 16K ON THE SYSTEM? 
2774 027326 002510 BLT 4$ “BRANCH IF LESS THAN 16K TO 4$ 
2775 0 005057 001336 20$: CLR HOLF L : SURE HOLE FLAG STARTS AT ZERO . 
2776 027334 012737 027772 000004 MOV #10S, ERRVEC *SET ERROR VECTOR POINTER TO 10$ 
2777 0 7342 012737 000777 172350 #777 .KIPARS “LOAD PAR4 WITH STARTING BASE 
012737 001000 172352 MOV #1000 .KIPARS ;START ADDRESSING WITH 16K 
2779 027356 012701 120000 MOV #120000,R1 LOAD VIRTUAL ADDR FOR PARS INTO R1 
2 7362 012702 000375 MOV #375 ,R2 “LOAD DATA PATTERN INTO R2 
2781 027366 012737 027374 001110 MOV #1$,$LPERR “SET LOOP ON ERROR POINTER TO 1$ 
2782 7374 005037 001332 1$: CLR PCPUER *CLEAR CPU ERROR FLAG 
2783 027400 005737 001340 TST HDWF LAG 7 SPECIAL ? 
2784 027404 001404 BEQ 2$ “BRANCH IF FALSE 
9785 027406 023737 172352 003022 KIPARS,$LSTBK :ARE WE OUT OF EXISTING MEMORY? 
2786 027414 003023 BGT ‘BRANCH 
2787 027416 011137 001176 2S: (R1).$TMPO “SAVE DATA AT TEST LOCATION 
2788 027422 005737 001332 TST PCPUER ; SEE IF THERE WAS A CPU TRAP 
2789 027426 001014 IF TRAP OCCURRED 
2790 027430 005737 001336 TST HOLFLG “SEE IF HOLE WAS FOUND IN MEMORY 
2791 027434 001411 [BRANCH IF NO HOLE WAS FOUND 
3798 7436 013737 172352 001202 MOV KIPARS,STMP2 § :SAVE PAR THAT POINTS TO END OF HOLE 
2793 027444 012737 027330 001110 #20$,$LPERR “SET LOOP ON ERROR POINTER TO 20$ 
279% 027452 104041 ERROR + *HOLE IN MEMORY FROM STMP1 TO S$TMP2 
2795 027454 005037 001336 CLR HOLFLG “CLEAR HOLE FLAG IN CASE THERE ARE MORE 
2796 027460 010210 3$: MOV Re (RO) *LOAD TEST PATTERN INTO TEST LOCATION 
2797027462 000405 BR 2 “BRANCH OVER NEXT INSTRUCTIONS 
2798 027464 010204 21$: MOV R2,R4 “GET COPY OF DATA 
2799 027466 052 000400 BIS WBITB,R4 ‘ADD SPECIAL HARDWARE ENABLE BIT 
2800 027472 010437 177770 MOV R4 RMIREG *PUT DATA IN SPECIAL 
1 027476 011103 23S: (Ri) .R3 “READ TEST LOCATION VIA DIFFERENT VIRT. ADDR. 
7500 3 CMP R2.R3 “SEE IF THE CORRECT LOCATION WAS REFERENCED 
7502 001401 BEQ 22$ “BRANCH IF CORRECT DATA WAS OBTAINED 
7504 104042 ERROR +42 ‘BAD RELOCATION 
2805 027506 ” 711 001176 22$: MOV STMPO, (R1) “RESTORE ORIGINAL DATA TO TEST LOCATION 
2806 7512 Uo2737 000400 172350 ADD #400, KIPARS *CHANGE BASE ADDRESS 


7 Os 7380 062737 000400 172352 ADD #400. KIPARS ; CHANGE BASE ADDRESS 
2808 0275 005302 DEC R2 CHANGE DATA PATTERN 


eer 
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007400 172352 CMP #7400.KIPARS | ;SEE IF PAST LAST ADDRESS | 


2809 027530 1085 
2810 027536 BHIS 1$ ‘BRANCH IF NOT PAST LAST ADDRESS 
2811 027540 001334 TST HOLFLG *SEE IF YOU ARE IN MIDDLE OF HOLE 
2812 027544 eed BEQ 4$ ‘BRANCH IF NOT IN MIDDLE OF HOLE 
2813 027546 1046043 ERROR +43 = IN MIDDLE OF HOLE IN MEMORY 
2814 *HOLFLG HAS NUMBER OF TIMEOUTS 
2815 *$TMP1 HAS PAR OF FIRST TIMEOUT 
*® 
2817 :* ADDRESS 760000 IS GENERATED BY CARRY PROPAGATION WHILE THE 
2818 :* PROGRAM IS EXPECTING A TIME OUT. (760000 IS THE FIRST 1/0 
2819 :* PAGE ADDRESS). KIPAR4 WILL CONTAIN 607577 AND RO HAS 100100 
2820 :* (WHICH SELECTS KIPAR4 AND GENERATES ADDRESS 760000). IF THE 
2821 :* WRONG BIT IN THE CPU ERROR REGISTER IS SET, OR IF NO TRAP 
2822 :* TO "ERRVEC' OCCURS AN ERROR IS REPORTED. 
*“* 
2824 027550 005737 001340 is: TST HDWF LAG : SPECIAL HARDWARE? 
2825 027554 001402 BEQ 45$ “BRANCH IF NOT 
2826 027556 005037 177770 CLR RMIREG “MAKE SURE SPECIAL HARDWAE IS OFF 
2827 027562 012737 003232 000004 45$: MOV #TIMERR,ERRVEC :RESTORE NORMAL ROUTINE FOR TRAPS THRU 4 
2828 027570 012737 027622 001110 MOV #40$,$LPERR *SET LOOP ON ERROR POINTER TO 40$ 
2829 027576 012737 007577 172350 MOV #7577, KIPAR4 | :LOAD KIPAR4 WITH 007577 
2830 027604 012702 007600 MOV #7600,R2 =LOAD DATA PATTERN INTO R2 
2831 027610 012737 000020 001334 MOV #20, CPUEXP *EXPECTING UNIBUS TIMEOUT 
2832 027616 005037 001332 CLR PCPUER =CLEAR CPU TRAP FLAG 
2833 027622 010210 ~ 40$: MOV R2, (RO) =L 60000 THRU PAGE 4 
2834 | *THIS INSTRUCTION SHOULD TIMEOUT 
2835 -OVER THE UNIBUS. 
2836 027624 005737 001332 TST PCPUER “SEE IF TRAP OCCURRED 
2837 027630 001001 BNE &% *BRANCH IF TRAP 
2858 027632 104044 ERROR +44 “NO CPU TRAP 
** 
2840 ze ADDRESS 000000 IS GENERATED BY CARRY PROPAGATION. THEN, IF 
2841 :* THERE IS LESS THAN 120K OF MEMORY ON THE SYSTEM, THE LAST 
2842 * BLOCK ($LSTBK) IS USED AS A PAR AND A CARRY IS PROPAGATED TO 
2843 ie CAUSE AN 18-BIT OVERFLOW. 
2844 ;* 
2845 027634 012737 027660 001110 6S: MOV #16$,$LPERR :SET LOOP ON ERROR POINTER TO 16$ 
2846 027642 005037 001334 CLR CPUEXP “NO TRAPS THRU ERRVEC EXPECTED HERE 
2847 027646 012737 007777 172350 MOV #7777, KIPARG | :LOAD PAR4 WITH HIGHEST VALUE POSSIBLE 
2848 027654 005037 000000 CLR 0 =CLEAR ADDRESS ZERO 
3849 7660 013701 100100 16$: MOV 100100,R1 *THIS SHOULD READ ADDRESS ZERO INTO R1 
50 027664 701 TST R1 “SEE IF YOU READ SS ZERO 
2851 027666 001401 BEQ ; H IF ADDRESS ZERO WAS READ 
g85¢ 7670 104045 ERROR +45 “DIDN'T READ ADDRESS Z 
53 027672 012737 027736 001110 7$: MOV #17$,$LPERR *SET LOOP ON ERROR POINTER TO 17$ 
2854 00 020737 007377 003022 CMP #7377, $LSTBK : :IS MEMORY BLOCK | SIZE, < < 7377 
55 027706 101423 BLOS 8$ , :BRANCH IF MORE THAT 120K ON SYSTEM 
2836 7710 : 7 000040 001334 MOV #40, CPUEXP “ SEXPECTING NONCEXISTANT MEMORY 
2857 027716 005037 001332 CLR PCPUER “CLEAR TRAP THRU ERRVEC FLAG 
2858 2 013737 003022 172350 MOV SLSTBK.KIPARS :GET READY TO GENERATE NON-EXISTANT ADDR. 
2859 7585 737 000100 172350 ADD #100. KIPAR4 “MAKE SURE WE'RE IN NON-EXISTANT MEMORY. 
13701 100100 17$: MOV 100160,R1 “READ FROM NON-EXISTANT ADDRESS 
1 027742 005737 001332 TST PCPUER *SEE IF TRAP THRU ERRVEC OCCURRE 
7746 001003 BNE 8$ “BRANCH TO EXIT IF TRAP OCCURED 
7750 012 100100 MOV #100100,.R0 “SAVE VIRTUAL ADDRESS FOR ERROR TYPEOUT 
2864 037736 104046 ERROR +46 *NO TRAP THRU ERRVEC 
2865 027756 005037 001334 8$: CLR CPUEXP “NO CPU TRAPS EXPECTED 


— eee oe 
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lll Ones 027330 001110 
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ie 
172350 
027550 


000020 
001336 


172352 
001336 
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#208 SLPERR 


SEQUENCE 


:SET LOOP ON ERROR on TO START OF TEST 
;BRANCH TO NEXT TEST 


-seenenenaaee TRAP TO HERE THRU ERRVEC Seeeeetkareeeeene 
(KSP) +, OLDPC 


MOV 
MOV (KSP) + “OLDPS 
001 $38 MOV CPUERR ,PCPUER 
001332 s 
003022 CMP KIPARG ,SLSTBK 
BLT 11$ 
001326 MOV #4$,,0LDPC 
BR 14$ 
11$: ERROR +47 
BR 14$ 
001332 12$: CMP _— 
BNE 1 
TST HOLFLG 
BNE 15$ 
001200 MOV KIPARS .STMP1 
15$: INC HOLFLG 
BR 14$ 
001324 138: MOV OLDPC ,BADPC 
ERROR +71 
001326 MOV SLPADR ,OLDPC 
CLR HOLFLG 
14$: CLR CPUERR 
MOV OLDPS ,-(KSP) 
at OLDPC ,.-(KSP) 





:SAVE RETURN ADDRESS 

[SAVE RETURN 

;SAVE CPU ERROR REGISTER FOR TYPING 
[WAS TRAP NON-EXISTANT MEMORY 
BRANCH IF MEMORY EXISTS 
SEE IF PAR4 MATCHES LAST BLOCK IN MEMORY 
;BRANCH IF NO MATCH-ERROR IN COMPARE CIRCUITS 
TURN ADDRESS IF AT TOP OF MEMORY 
















VE PAR 
TKEEP COUNT OF SUCCESSIVE TIMEOUTS 
;BRANCH TO EXIT 
PC OF UNEXPECTED ERROR FOR TYPEOUT 
D TRAP ERRVEC 


STACK 
T ADDRESS ONTO STACK 
;RETURN TO TEST AND CONTINUE 
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TEST # 50 ~- 22-B1T MAPPING CARRY PROPAGATI 













2908 -SBTTL_ TEST # 50 ~ 22-B1T MAPPING CARRY PROPAGATION 
S EAAAAAAAAAAEAAAAAAAAAAAAAEAAAAAAAAAAEAAAAAAAARERAARAERERAAET EEE 
:*TEST 50 22=BIT MAPPING CARRY PROPAGATION 
** 
:* THIS TEST USES FULL 22-B1T RELOCATION TO CHECK THE CARR | 
oa PROPAGATION THAT PERTAINS 10. 22 IT ADDRESSES. THIS TEST | 
:* SCANS MEMORY FROM 00740000 TO 16740000 OR THE LAST BLOCK, 
i SN SK BOUNDARIES. IF ANY HOLES ARE FOUND. THE ADDRESS | 
oi WHERE THE HOLE WAS DISCOVERED AND THE FIRST GOOD ADDRESS 
:* AFTER THE HOLE WILL BE REPORTED. | 
** 
oe NOTE - PART OF THIS TEST WILL NOT BE RUN IF THERE IS LESS 
:* THAN 120K ON THE SYSTEM. 
** 
°: p- ROR RAELELACALLAEALALALALAEAALAELALAALALAAAAEEEAAARE EERE RRR EES SS 
030136 000004 TST5O: SCOPE | 
2909 030140 012700 100100 MOV #100100,R0 :LOAD VIRTUAL ADDR FOR PAR4 INTO RO 
2910 030144 012701 120000 MOV #120000,R1 “LOAD VIRTUAL ADDR FOR PARS INTO R1 
2911 030150 012737 000020 172516 MOV #8174 MMR sENABLE 22 BIT MAPPING 
ae: 030156 005737 001340 TST HDWF LAG *IS THERE SPECIAL HARDWARE? 
2913 030162 001004 BNE 20$ “BRANCH IF THERE 
2914 030164 022737 007377 003022 CMP #7377. $LSTBK :1S THERE AT LEAST 120K ON THE SYSTEM? 
2915 030172 003112 AGT 4$ ‘BRANCH IF LESS THAN 120K 
2916 030174 012737 030654 000004 20$: MOV #10$, ERRVEC ;SET ERROR VECTOR POINTER TO 10S 
2917 030202 005037 001336 CLR HOLELG SURE HOLE FLAG STARTS AT ZERO 
2918 0 206 012737 007377 172350 MOV #7377, KIPARG “LOAD PARG WITH STARTING BASE 
2919 030214 012737 007400 172352 MOV #7400,KIPARS | :LOAD BASE ADDRESS +100 INTO KIPARS 
2920 012702 000360 MOV #360,R2 *LOAD DATA PATTERN INTO 
2921 030226 012737 030234 001110 1S: MOV #21$,$LPERR :SET LOOP ON ERROR POINTER TO 21$ 
2922 030234 005737 001340 21$: TST HDWF LAG =IS THERE SPECIAL HARDWARE? 
2923 030240 001404 BEQ 22$ “BRANCH IF NOT 
2924 030242 023737 172352 003022 CMP KIPARS,SLSTBK :ARE WE OUT OF MEMORY SPACE? 
2925 030250 003025 BGT 23$ ‘BRANCH IF WE ARE 
2926 030252 005037 001332 22$: CLR PCPUER “CLEAR CPU ERROR FLAG 
2927 030256 011137 001176 MOV (R1), $TMPO “SAVE DATA AT TEST LOCATION 
2928 030262 005737 001332 TST PCPUER ;SEE IF THERE WAS A CPU TRAP 
030266 001014 BNE H IF CURRED 
2930 030270 005737 001336 TST HOLFLG "SEE IF HOLE WAS FOUND IN MEMORY 
2931 030274 001411 BEQ IF NO HOLE WAS FOUND 
76 013737 172352 001202 MOV KIPARS.STMP2 7 SAVE PAR THAT POINTS TO END OF HOLE 
012737 030174 001110 MOV #20$,$LPERR :SET LOOP ON ERROR POINTER TO 20S 
2934 030312 104050 ERROR +50 “HOLE IN MEMORY FROM STMP1 TO $TMP2 
2935 030314 005037 001336 CLR HOLFLG “CLEAR HOLE FLAG IN CASE THERE ARE 
2936 010210 2s: MOV R2, (RO) “LOAD TEST PATTERN, INTO TEST LOCATION 
2937 2 000405 BR 2468 [BRANCH OVER NEX xT FEW INSTRUCTIONS 
2938 030324 010204 23$: MOV R2.R4 “GET CURRENT DATA VALUE 
2939 030 052 000400 BIS WEITB.R4 *SET SPECIAL HARDWARE ENABLE BIT 
010437 177770 MOV R4 .RMIREG *SETUP SPECIAL HARDWARE 
2941 030336 011103 24$: MOV (Ri) .R3 “READ TEST LOCATION VIA DIFFERENT VIRT. ADDR. 
294 030340 020203 CMP R2,R3 [SEE IF THE CORRECT LOCATION WAS REFERENCED 
030342 001401 BEQ “BRANCH IF C DATA WAS OBTAINED 
2944 030 104051 ERROR +51 *BAD RELOCATION 22-BIT MAPPING 
2945 030 013711 001176 3s: MOV STMPO, (R1) “RESTORE ORIGINAL DATA TO TEST LOCATION 
2946 030352 062737 000400 172350 ADD #600, KIPARS “CHANGE BASE ADDRESS 
2947 030360 062737 000400 172352 ADD #400. KIPARS =CHANGE BASE ADDRESS 
2948 030366 2 DEC R2 “CHANGE DATA PATTERN | 
2949 030370 023737 172350 003022 CMP KIPAR4,$LSTBK :IS THE PAR ABOVE THE LAST BLOCK OF MEMORY | 
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172352 


172516 


000004 
172350 
172352 


001110 
001334 


001110 
172350 


001110 
003022 


001334 


172350 
172350 


001110 


SEQUENCE 
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BGT 4$ :BRANCH IF ABOVE LAST MEM. LOC. 
CMP #167400, KIPARS =MAKE SURE YOU DON'T GO ON THE UNIBUS 
BHIS  1$ “BRANCH IF NOT PAST LAST ADDRESS 
TST . HOLFLG :SEE IF MEMORY ENDS WITH A HOLE 
BEQ 4$ “BRANCH IF NO HOLE AT END OF MEMORY 
ERROR +52 “HOLE AT END OF 

*® 

:* UNIBUS ADDRESS 000000 IS GENERATED BY CARRY PROPAGATION 

:* SINCE THE MAP IS DISABLED, THIS SHOULD REFERENCE PHYSICAL 

ie ADDRESS 000900. 

**® 

is: MOV #8114, MARS :ENABLE 22-BIT MAPPING 
MOV ATIMERR.ERRVEC :RESTORE NORMAL ROUTINE FOR TRAPS THRU 4 
MOV #167777.KIPAR4 :GET READY TO TEST U.B. ADDRESS 0 
MOV “KIP ‘SHOULD GO TO PHYSICAL ADDRESS 0 
MOV #17000 ,R2 “LOAD DATA PATTERN INTO R2 
MOV #5$,$LPERR *SET LOOP ON ERROR POINTER TO 5$ 
MOV #20, CPUEXP “EXPECTING UNIBUS TIMEOUT 
MOV (RO), STMPO ;SAVE DATA IN LOCATION 

5$: MOV R2, (RO) LOAD DATA PATTERN INTO TEST LOCATION 
MOV (Ri) RB ;READ TEST LOCATION VIA DIFFERENT VIRT ADDR 
MOV $TMPO, (RO) “RESTORE ORIGINAL DATA USING PAGE 4 
CMP R2,R3 ; SEE IF DATA MATCHES 
BEQ 6$ H IF TRAP 
ERROR +53 “BAD RELOCATION.UNISUS ADDRESS 

* 

:* ADDRESS 000000 IS GENERATED BY CARRY PROPAGATION. THEN, IF 

:* THERE IS LESS THAN 120K OF MEMORY ON THE SYSTEM, THE LAST 

:* BLOCK ($LSTBK) IS USED AS A PAR AND A CARRY IS PROPAGATED TO 

:* CAUSE A 22-BIT OVERFLOW. 

* 

é$: MOV #16$.SLPERR ;SET LOOP ON ERROR POINTER TO 16$ 
CLR CPUE XP TRAPS THRU ERRVEC EXPECTED HERE 
MOV #177777.KIPARG LOAD PARS WITH HIGHEST VALUE POSSIBLE 
CLR 0 “CLEAR ADDRESS ZERO 

16$: MOV 100100.R1 “THIS SHOULD READ ADDRESS ZERO INTO R1 
TST R1 :SEE IF YOU READ ADDRESS ZERO 
BEQ 7$ : H IF ADDRESS ZERO WAS READ 
ERROR $45. *PIDN'T READ ADDRESS ZERO 

7$: MOV 7$,SLPERR “SET LOOP ON ERROR POINTER TO 17S 
CMP W6rh? S$LSTBK :1S MEMORY BLOCK | SIZE < < 167777 
BLOS 8$ *BRANCH IF MORE THAT 120K ON SYSTEM 
MOV #40, CPUEXP “EXPECTING NONTEXISTANT MEMORY ERROR 
CLR PCPUER “CLEAR TRAP THRU CF 
MOV SLSTBK.KIPARS :GET READY TO GENERATE NON-EXISTANT ADDR. 
ADD #100 .KIPAR4 : WE ARE IN NON-EXISTANT MEMORY 

17$: MOV 100100,R1 *READ XISTANT SS 
TST PUER “SEE IF TRAP THRU ERRVEC OCCURRED 
BNE x3 : “BRANCH TO EXIT If TRAP OCCURED 
MOV #100100,RO : SAVE VIRTUAL ADDRESS FOR ERROR TYPEOUT 
ERROR +46 “NO TRAP THRU ERRVEC 

8$: CLR CPUEXP NO CPU TRAPS EXPECTE 
MOV #20$,$LPERR - :SET ON ERROR POINTER TO START OF TEST 
CLR ;RETURN TO 18-B1T 

H TO NEXT TEST 


BR TST51 
;eeeexeeeeeee TRAP TO HERE THRU E 


10$: MOV (KSP) + ,OLDPC 


RRVEC RAEREKKRAEKRKEKEREE 


SAVE RETURN ADDRESS 
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001332 
001332 


003022 
001326 


001332 


001200 


001324 
001326 


(KSP)+,OLDPS 
CPUERR ,PCPUER 
#40 ,PCPUER 

| ctrl 
#4$ ,OLDPC 

14$ 

+47 

14$ 

#20, PCPUER 
13$ 

HOLFLG 

15$ 
KIPARS,STMP1 
HOLFL 


+ 
SLPADR ,OLDPC 
HOLFLG 


CPUERR 
OLDPS ,~(KSP) 
OLDPC ,-(KSP) 


SEQUENCE 


;SAVE RETURN PSW 
;SAVE CPU ERROR yp pte FOR TYPING 
TRAP NON-EX Piet T MEMORY 


BRANCH IF Y EXISTS 
:SEE IF PAR MATCHES LAST BLOCK IN MEMORY 

H IF NO MATCH-ERROR IN COMPARE CIRCUITS 
“CHANGE RETURN ADDRESS IF AT TOP OF MEMORY m 
‘BRANCH TO EXIT 


OUT 
F NO TIME OUT,UNEXPECTED ERROR 
;HAS TH IS NED BEFORE? 


HAPPE 
ee oak IF NOT FIRST ms al 

AR WHERE HOLE FIRST DISCOVERED 
SKEEP COUNT OF SUCCESSIVE TIMEOUTS 
SBRANCH TO EXIT 
sMOVE PC OF UNEXPECTED ERROR FOR TYPEOUT 
; RAP THROUGH ERRVEC 


;RETURN TO TEST AND CONTINUE 


oes we ———— 
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TEST # 51 = READ AND 


3052 -SBTTL TEST # 51 — READ AND WRITE WHILE IN RELOCATE MODE 


5 EERE AAEEAAARAAAARAERAEREARARAAAEAARAAARERAARA ERED 


:*TEST 51 READ AND WRITE WHILE IN RELOCATE MODE 
ce THE FOLLOWING TEST TURNS ON MEMORY MANAGEMENT AND THEN 
:* READS AND WRITES LOCATIONS BETWEEN PHYSICAL ADDRESSES 
:* 060000-067600. ONE LOCATION IN EVERY BLOCK (32. WORDS) 
:* IS WRITTEN USING PAR4 AND READ USING Pans. THIS "er 
:* DONE IN BOTH USER AND K THE ' ‘* INPUT TO 
:* THE PAR/PDR ADDRESS MUX IS CHECKED BY READING AND WRITING 
* IN USER MODE. REMEMBE 0, THAT SINCE “aE 
:* IS ON (IN RELOCATE MODE) THE PROGRAM ITSELF IS USING ITS 
:* VIRTUAL ADDRESSES AND THE PAR/PDR'S TO EXECUTE. 
** 
ie ILE TESTING IN KERNEL MODE, USER PAGES 4 & 5 ARE MAPPED 
:* ESIDENT WITH DIFFE NT PAR VALUES THAN THE KERNEL 
:* PAR'S TO BE SURE THAT THE KERNEL PAR'S AND PDR'S ARE BEING 
:* USED WHEN IN KERNEL MODE (AND WECE VERSA WHILE TESTING IN 
:* u ER MODE). IF A MEM. MGMT. TRAP OCCURS, THE PROGRAM GOES 
:* 0 8$ WHERE THE TRAP IS REPORTED. 
** 
TARR eoscid os 
031020 TST51: SCOPE 
3053 031022 005037 177776 1$: CLR PSW :START IN KERNEL MODE 
3054 031026 012704 000577 MOV #577. R4 “LOAD R4 WITH VALUE FOR PAR4 
3055 031032 012705 MOV *R5 “LOAD R5 WITH VALUE FOR PARS 
031036 010437 172350 MOV R4,KIPAR4 ‘LOAD KERNEL ARS 
3057 031042 010537 172352 MOV R5.KIPARS ;LOAD KERNEL PARS 
031046 012700 177640 MOV #UIPARO,RO *LOAD ADDRESS OF FIRST USER PAR IN RO 
3059 031052 012703 172240 V #SIPARO. “LOAD ADDRESS OF FIRST SUPERVISOR PAR IN R3 
031056 005001 CLR 1 [CLEAR R1 
3061 031060 012702 000007 MOV #7 ,R2 *LOAD LOOP COUNTER WITH A 7 
031064 010120 2$: MOV R1.(RO)+ MAP USER PAR'S TO PAGES 0-6 ( CH) 
031066 010123 MOV R1.(R3)+ MAP SUPERVISOR PAR'S TO PAGES y Sy tak EACH) 
3064 031070 701 000200 ADD 260,R1 
3065 031074 205 SOB : :LOOP UNTIL UIPARO-UIPAR6 ARE LOADED 
031076 012710 007600 MOV #7600, (RO) “MAP USER PAR7 TO THE I/0 PAGE 
3067 031102 012713 007600 MOV #7600, (R3) “MAP SUPERVISOR PAR? TO THE I/O PAGE 
031106 012 177600 MOV IPDRO, ‘LOAD ADDRESS OF FIRST USER PDR IN RO 
3069 031112 012703 172200 MOV IPDRO,R3 “LOAD ADDRESS OF FIRST SUPERVISOR PDR IN R3 
3070 031116 012701 077406 MOV #77606,R1 _. {LOAD PDR DATA INTO R1 
3071 031122 012702 00001 MOV #10.R2 :LOAD LOOP COUNTER WITH AN 8 
307 051126 010120 3s: MOV R1, (RO) + “MAP ALL 8 PAGES 128 BLOCKS, UPWARD 
3073 031130 01012 MOV R1.(R3)+ : EXPANDABLE ,READ/WRITE FOR 
3074 031132 077203 SOB R2,3$ : SUPERV 
3075 031134 105037 177610 CLRB = UIPDR4 “MAP USER SPACE NON-RESIDENT WHILE 
3076 031140 105037 177612 CLRB - UIPDRS : TE KERNEL 
3077 031144 105037 172210 CLRB = SIPDR4 ;MAP SUPERVISOR SPACE NON-RESIDENT WHILE 
3078 031150 105037 172212 CLRB SIPDRS : TESTING KERNEL 
3079 031154 010537 177650 MOV R5 ,UIPAR “MAP USER PAR'S OPPOSITE OF KIPAR'S 
3080 031160 010437 177652 MOV R4.UIPARS 
3081 031164 010537 172250 MOV RS. SIPAR4 :MAP SUPERVISOR PAR'S OPPOSITE OF KIPAR’S 
3082 031170 010437 172252 MOV R4. SIPARS 
031174 012737 1 177572 MOV -TURN ON MEMORY MANAGEMENT (RELOCATE MODE) 
3084 031202 012737 031 i 001110 MOV #5$, SLPERR “SET LOOP ON ERROR POINTER TO 5$ 
3085 031210 012737 031556 000250 MOV #8$ , MMVEC “SET M. M. TRAP VECTOR TO 8$ 
3086 031216 013737 177776 001176 4S: MOV PSwW. $STMPO “SAVE PSW IN CASE OF ERROR 


—S— ero i SS — - 


eee ee es ee ee - -_ - - _ ——— 
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TEST # 51 = READ AND WRITE WHILE IN RELOCATE MODE 
3087 031224 012700 100100 MOV #100100 .R0 :PUT VIRTUAL ADDR. THAT USES PARS IN RO 
3088 031230 012701 120000 MOV #120000.R1 :PUT VIRTUAL ADDR. THAT USES, PARS IN R1 
3089 031234 010010 S$: MOV RO (RO) ;WRITE TO TEST LOC. USING P 
3090 031236 011102 MOV (Ri) .R2 -READ THE SAME LOC., BUT “usin PARS 
3091 031240 020002 CMP RO,R2 “DID WE READ WHAT WE WRO 
3092 031242 001411 BEQ 6$ “BRANCH IF YES 
3093 031244 010137 001300 MOV R1,VIRT2 “SAVE VIRTUAL ADDR. THAT SELECTED PARS 
3094 031250 010037 001276 MOV RO.VIRT1 “SAVE VIRTUAL ADDR. THAT SELECTED PAR 
3095 031254 737 003426 JSR PC’ FORMPA PHYSICAL ADDRESS 
3096 031260 104020 ERROR +20 ; READING LOC. USI 5 
3097 “ADDR. DID NOT FIND DATA URITTEN in USING 
3098 “PAR4 AND VIRT. S. 
3099 ‘<0 TIGHTER SCOPE LOOP 
3100 | ZKUPLACE ERROR CALL WITH 
3102 031262 013700 001276 MOV VIRT1,RO “RESTORE VBA IN RO 
3103 031266 062700 000100 6S: ADD #100,RO “CHANGE VIRTUAL ADDRS. TO POINT TO NEXT BLOCK 
272 062701 000100 ADD #100.R1 
3105 031276 020127 127700 CMP R1,4127700 :WERE BLOCKS FROM 60000-67600 ALL TRIED? 
3106 031302 001354 BNE 5$ BRANCH IF NO 
3107 031304 032737 140000 177776 BIT #140000, PSW HAVE WE DONE TEST IN USER MODE YET? 
3108 031312 001026 BNE 7$ “BRANCH IF YES 
3109 031314 010437 177650 MOV R4,UIPARS “LOAD USER PAR4 | 
3110 031320 010537 177652 MOV R5.UIPARS “LOAD USER PARS 
3111 037 112737 000006 177610 MOVB  #6.UIPDR4 “MAP USER SPACE R/wW TO TEST IT 
3112 031332 112737 000006 177612 MOVB #6,UIPDRS 
3113 031 105037 172310 CLRB  KIPDR4 :MAP KERNEL SPACE NON-RESIDENT WHILE 
3114 0317 105037 172312 CLRB  KIPDRS : TESTING USER SPACE 
3115 031350 010537 172350 MOV R5 .KIPARG “MAP KERNEL PAR'S OPPOSITE UIPAR'S 
3116 031354 010437 172352 MOV R4.KIPARS 
3117 031360 012737 140000 177776 MOV #140000 .PSW :GO TO USER MODE 
3118 031366 000713 BR 4$ ;GO BACK AND READ/WRITE IN USER MODE 
3119 031370 032737 040000 177776 7S: BIT #40000, PSwW HAVE WE DONE TEST IN SUPERVISOR MODE YET? 
3120 031376 001026 BNE 10$ “BRANCH IF YES 
3121 031400 010437 172250 MOV R4, SIPARS “LOAD SUPERVISOR PAR4 
3122 031 010537 172252 MOV R5.SIPARS “LOAD SUPERVISOR PARS 
3123 031410 112737 000006 172210 MOVB $#6.SIPDR4 “MAP SUPERVISOR SPACE R/W TO TEST IT 
3124 031416 112737 172212 #6, S1PDR 
3125 031424 105037 177610 CLRB ;MAP USER SPACE NON-RESIDENT WHILE 
3126 031 105037 177612 CLRB TESTING USER SPACE 
3127 031434 010537 177650 R5,UIPARS “MAP USER PAR'S OPPOSITE SIPAR'S 
3128 031440 010437 177652 MOV R4.UIPARS 
3129 031444 012737 177776 MOV 6000, :GO TO SUPERVISOR MODE 
3130 031452 1 BR 4$ *GO BACK AND READ/WRITE IN SUPERVISOR MODE 
3131 031454 005037 177776 10$: CLR PSw *GO BACK TO KERNEL MODE BEFORE LEAVING 
3132 031460 737 «(077 172310 MOV #77406.KIPDR4 | :REMAP KERNEL PAGES READ/WRITE 
3133 031466 012737 077406 172312 MOV #77406, KIPDRS 
3134 031474 012737 077406 177610 MOV #77606.UIPDR4 ;:REMAP USER PAGES READ/WRITE 
3135 031502 012737 077406 177612 MOV #77406, UIPDRS 
3136 031510 010537 172350 MOV RS .KIPARS -MAP KERNEL, SUPERVISOR AND USER PAR'S 4 & 5 
3137 031514 010537 172352 MOV R5.KIPARS > BACK TO 12=16K 
3138 031520 010537 177650 MOV R5.UIPARS 
3139 031524 010537 177652 MOV R5UIPARS 
3140 031530 010537 172250 MOV * SIPARG 
3141 031534 010537 172252 MOV R5.SIPARS 
3142 031540 012737 003330 000250 MOV WMGMERR.MMVEC =RESTORE ADDR. OF NORMAL M.M. TRAP ROUTINE 
3143 031546 012737 031022 001110 MOV #1$,$LPERR “RESET LOOP ON ERROR POINTER TO 1$ 
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TEST # 51 = READ AND WRITE WHILE IN RELOCATE 


3144 031554 000427 TST52 BRANCH TO NEXT TEST 
145 -eeeeeeeane TRAP TO HERE THRY ERRVEC eeeeeeeene 

146 031556 012637 001260 $: MOV (KSP)+,TRAPPC  ;SAVE PC & PS OF TRAP 

147 031 012637 001 MOV (KSP) +, TRAPPS 

3148 L TRAP TO HERE IF TRY 

3149 =TO USE USER/SUPERVISOR PDR'S WHEN IN KERNEL MODE 
3150 ERNEL PDR'S WHEN IN USER/SUPERVISOR MODE 
3151 031566 010037 001276 MOV RO,VIRT1 ; SAVE VIRTUAL ADDRESS FOR E 

13¢ 031572 737 3426 JSR PC FORMPA =GO FORM THE PHYSICAL ADDRESS BEING USED 
3153 031576 013737 177572 001264 MOV SRO, WASSRO *SAVE SRO & SR2 FOR ERROR REPORT 
3154 031604 013737 177576 001270 MOV SR2.WASSR2 
3155 031612 042737 177572 BIC #160000,S :CLEAR ERROR BITS IN SRO 

156 031 104022 ERROR +22 7M.M. TRAP WHILE IN RELOCATE MODE - 
3157 : REFERENCED WRONG SET OF PDR'S 
3158 “FOR TIGHTER SCOPE LOOP 
3159 ; REPLACE ERROR CALL WITH 
3160 ‘ NOP" 240 
3161 031622 013746 001262 MOV TRAPPS , - (KSP) ‘Sur PC & PS OF TRAP ON STACK 
3162 031626 013746 001260 MOV TRAPPC , -(KSP) 
3163 021632 000002 RT] :RETURN TO TEST 
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s 


GROUP 4 W-BIT TESTS 


FF AAAAAAAAAAAARAAAERARAAAAEAAARAAAAAAAAARARAAAAARAAARAARARAAAAAEEREE 
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KERNEL PDR'S 
.SBTTL TEST # 52 ~ W-BIT LOGIC TEST, KERNEL PDR'S 
yee OE Oe caries 
<STEST 52 W-BIT LOGIC TEST, L PDR'S 
a THIS TEST WRITES TO EIGHT (Bb DIFFER NT VIRTUAL ADDRESSES 
:* (VBA'S = 17776,37776,57776.77776,117776, 137776, 157776 & 177776 
:* & PBA’S CONSTRO RUCTED = 17776, 37 776 st 776, 77776, 77776. 
oe 77776, 77776, & 777% RESPECTIVELY 
:* WHICH SHOULD IT’ TO SET IN EACH OF THE 
:* EIGHT (8) KERNEL PAGE DESCRIPTOR REGISTERS. THE PDR'S 
* ARE CHECKED TO SEE THAT IT'S W-BIT DOES ie! N THE 
:* PAGE IT IS MAPPED TO IS WRITTEN TO AND THAT THE W-8IT 
:* DOES NOT SET IN ANY OF T HER PDR'S. MRERNEL PDR'S 3.4.5 & 6 
| o MAPPED TO 12-16K FOR THIS TEST. ALSO THE W-BIT 
: :* SHOULD BE CLEARED WHEN THE PDR IS WRITTEN TO. THE 
d ;* W-BIT PORTION OF THE PDR'S AND THE PAR/PDR ADRS MUX 
:* ARE BEING CHECKED. 
2 2 5 POSS ORS SSSA S SAS SHS NSS SSeS as See sae e Ne ese eee seereneesessssacasens 
Sa SCOPE 
JSR PC ,TOFF : TURN T-BIT TRAPPING OFF FOR THIS TEST 
MOV #4,R2 =SET LOOP COUNTER TO 4 
MOV #KIPAR3,RO “LOAD ADDRES KIPAR3 INTO RO 
MOV #600,R “LOAD '12=16K'’ PAR VALUE INTO R1 
2$:.. MOV R1, (RO) + *MAP PARS 3-6 TO 1 Me 
SOB R2, “LOOP UNTIL ALL 4 OF THEM ARE LOADED 
MOV #KIPDRO,RS : SS OF FIRST PDR TO BE TESTED IN RS 
MOV i -SET LOOP COUNTER TO 8 
MOV #17776.R3 * INITIALIZE VIRTUAL ADDRESS TO BE IN R3 
001110 MOV #3$,SLPERR *SET LOOP ON ERROR POINTER TO 3$ 
3S: MOV #KIPDRO,RO =LOAD ADDR. OF FIRST PDR TO BE SETUP IN RO 
MOV #8. .R2 ;SET LOOP CONTER TO 8 
MOV #77406.R1 *PUT 'WBIT OFF DATA’’ INTO R1 
4$: MOV R1, (ROS+ :CLEAR A ALL BITS BY WRITING TO ALL PDRS 
SOB 2.4$ : LOOP. UN L ALL OF THEM ARE SET 
MOV (RS) , (R3) SO ATO TO VIRTUAL ADDR.-SETTING A W-BIT 
BIT (R5) ,AWBIT :DID THAT CAUSE W-BIT TO BE SET? 
BNE 5$ H IF YES 
> ERROR +54 “W-BIT DID NOT GET SET IN PDR 
FOR TIGHTER SCOPE, L LOOP REPLACE ERROR 
BR 8$ “SKIP CHECKING OTHER PDR'S-ERROR WILL SET W-BITS 
S$: MOV #8. ,R2 :SET LOOP COUNTER TO 8 
MOV #KIPDRO,RO *LOAD . OF FIRST PDR TO BE CHECKED IN RO 
6S: BIT (RO) ,AWBIT “DID W-BIT IN OTHER PDRS REMAIN CLEAR? 
BEQ 7$ “BRANCH IF YES 
CMP RS5,RO *IF W-BIT SET, THEN WAS IT PDR UNDER TEST? 
BEQ % *BRANCH IF YES 
ERROR +55 “W-BIT GOT SET IN HAN 
FOR TGHTE SCOPE LOOP REPLACE ERROR 
“CALL WITH ‘BR 3$ 50 
7$: ADD #2.R0 “POINT RO TO NEXT PDR TO BE CHECKED 
S08 R2.6$ “LOOP UNTIL ALL 8 CHECKED FOR CLEAR W-BIT 
MOV R1.(R5) “WRITE TO THE PDR TESTED TO CLEAR W-BIT 
BIT (R5) .AWBIT “DID WRITING PDR CLEAR THE W-BIT? 
BEQ ag “BRANCH IF YES 
ERROR +56 *W-BIT DID NOT CLEAR BY WRITNG THE PDR 


:FOR TIGHTER SCOPE LOOP, REPLACE ERROR CALL 


100 


q 
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TEST # 52 ~ W-BIT LOGIC TEST. KERNEL PDR*S 


sWITH "BR 3$"' = 000740 


0 705 00000 8$: ADD #2,R5 “POINT RS TO THE NEXT PDR TO BE TESTED 
032010 705 0 ADD #20000 ,R3 “CHANGE VIRT. ADDR TO REF. NEXT PDR 
032014 07744 508 RG “LOOP BACK TO 3$ UNTIL ALL 8 PDR'S TESTED 
032016 012737 031636 001110 MOV #1$,S$LPERR “RESET LOOP ON ERROR POINTER TO 1$ 
032024 004737 002226 JSR PC, TON *TURN T-BIT BACK ON FOR NEXT TEST 


CKKTABO 11/44 MEM MGMT 
TEST # 53 = W-BIT LOGIC PTET. SUPERVISOR PDR 


3176 


3177 
3178 


032030 
032032 
032040 


040000 
002172 


000004 
172246 
000600 


000002 


000100 
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177776 


001110 


-SBTTL TEST # 53 - W-BIT LOGIC TEST, SUPERVISOR PDR'S 


cTECT 63 UIT LOGIC TEST, SEERVISCR POR'S. 


—$—$__ —_—_ 


SEQUENCE 


[eTEST 53 W-BIT LOGIC C TEST. SUPERVIS 
:* THIS TEST WRITES TO EIGHT (8) FEER NT V TATUAL ADDRESSES 
:* (VBA'S = 7776,57776,777 6, 776 137776 157776 & 177776 
:* & PBA'S SONSTRUCTED = 17776, 377 7776, 77776, 77776. 
ot 77776, 77776, & 77776 RESPECTIV 7. 
:* WHICH SHOULD CAUSE THE ‘W-BIT’’ TO SET IN EACH OF THE 
* EIGHT (8) SUPERVISOR PAGE DESCRIPTOR REGISTERS. THE PDR'S 
:* ARE CHECKED TO SEE THAT IT'S WeBIT DOES SET WHEN THE 
:* IT IS WRITTEN TO AND THAT THE W-BIT 
:* DOES NOT SET IN ANY OF THE OTHER PDR'S. SUPERVISOR PDR'S 3,4,5 & 6 
:* ARE MAPPED TO 12-16K FOR THIS TEST. ALSO THE W-BIT 
:* SHOULD BE CLEARED WHEN THE PDR IS WRITTEN TO. THE 
:* W-BIT PORTION OF THE PDR'S AND THE PAR/PDR ADRS MUX 
:* ARE BEING CHECKED. 
J LARA RAAAAERERAEEARERREAEAEEERAKEAAEKERARAEARAEEREERRARERERERERERAEEREEEK 
TST53: SCOPE 
1$: MOV #40000 ,PSW :GO TO SUPERVISOR MODE FOR THIS TEST 
JSR PC, TOFF > TURN T=BIT TRAPPING OFF FOR THIS TEST 
MOV #4,R2 3SET LOOP COUNTER TO 4 
MOV -— #SIPAR3,RO ADDRESS OF SIPAR3_INTO RO 
MOV JR : LOAD 12=16K'' PAR VALUE INTO R1 
2$: MOV R1, (RO) + PARS 3-6 TO 12-16K 
S0B 2,2$ : LOOP UNTIL ALL 4 OF THEM ARE LOADED 
MOV #SIPDRO,RS ADDRESS OF FIRST PDR TO BE TESTED IN RS 
MOV #8. R4 “SET LOOP COUNTER TO 
MOV #17776,R3 : INITIALIZE VIRTUAL ADDRESS TO BE IN R3 
MOV #3$,SLPERR 7SET LOOP ON ERROR POINTER TO 3$ 
MOV #SIPDRO, : ADDR. OF FIRST PDR TO BE SETUP IN RO 
MOV #8. .R2 ;SET LOOP CONTER TO 
MOV #77406,R1 : W-BIT OFF DATA’ INTO R1 
4$: MOV 1, (RO)+ “CLEAR ALL WBITS BY WRITING TO ALL PDRS 
508 R2,4$ ; LOOP UNTIL ALL OF THEM ARE SET 
MOV (R3), (R3) bo DATO’ T IRTUAL ADDR.-SETTING A W-BIT 
BIT (R5) .AWBIT ‘DID THAT CAUSE W-BIT TO BE SET? 
BNE S$ : H IF YES 
ERROR +54 *W-BIT DID NOT GET SET IN PDR 
FOR TIGHTER SCOPE LOOP, REPLACE ERROR 
[CALL WITH ‘BR 3$"° = 0007 
BR “SKIP CHECKING OTHER PDR'S-ERROR WILL SET W-BITS 
5$: MOV #8. ,R2 *SET LOOP COUNTER TO 8 
MOV #SIPORO. RO *LOAD . OF FIRST PDR TO BE CHECKED IN RO 
6$: BIT (RO) . A :DID weit IN OTHER PDRS REMAIN CLEAR? 
CMP R5.RO [IF W-BIT SET, THEN WAS IT PDR UNDER TEST? 
BEQ 7$ ;BRANCH IF YES 
ERROR +55 IT GOT SET IN THAN 
FOR TGHTE SCOPE LOOP REPLACE ERROR 
; CALL H BR = 600750 
7$: ADD #2.RO POINT an TO NEX TO BE CHECKED 
S0B R2.6$ — “LOOP UNTIL ALL 8 CHECKED FOR CLEAR W-BIT 
MOV R1.(R5) “WRITE TO THE PDR TESTED TO CLEAR W-BIT 
BIT (R5) ,AWBIT “DID WRITING PDR CLEAR THE W-BIT? 
BEQ “BRANCH IF YES 
ERROR +56 *W-BIT DID NOT CLEAR BY WRITNG THE 


PDR 
:FOR TIGHTER SCOPE LOOP, REPLACE ERROR CALL 
| 


102 


- 
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TEST # 53 - WBIT LOGIC TEST, SUPERVISOR PDR 
| :WITH ‘BR 3$'' = 000740 

0 705 999002 8S: ADD #2.R5 *PUINT R5 TO THE NEXT PDR TO BE TESTED 

03221 70 ADD #20000,R ‘CHANGE VIRT. ADDR TO REF. NEXT PDR 

032216 07744 S0B RG “LOOP BACK TO 3$ UNTIL ALL 8 PDR'S TESTED 

0 012737 032032 001110 MOV ne 38 “RESET LOOP ON ERROR POINTER TO 1$ 

032226 004737 002226 JSR PC, TON :TURN T-BIT BACK ON FOR NEXT TEST 

3179 032232 005037 177776 CLR PSW ‘BACK TO KERNAL MODE BEFORE LEAVING 


OR TARO 11/44 MEM MGMT 


TEST 


032236 000004 
032240 012737 
032 004737 


306 Ole 
0323514 012700 
032320 012702 
032324 012701 
0 010120 
0 77202 
032534 011313 
0323356 031527 
032342 001002 
032344 104054 


032346 000422 


500 
1401 
72 104055 


09 Orren} 


910115 


WW 


032412 104056 


140000 
002172 


000004 
177646 
000600 


177600 
000010 


017776 
032314 
177600 
000010 
077406 


000002 
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a ” - W-BIT LOGIC mTEST. USER PDR’S 


3183 


177776 


001110 


-SBTTL TEST # 54 ~ W-BIT LOGIC TEST, USER PDR'S 


cesT Cent Lele feS?. LAAs 


STEST 54 
_ THIS TEST TUR TES. “10 i uf YB) TPrE NT VIRTUAL ADDRESSES 
> wares sam a ct 1377766157776 “17776 
is 3 Pa BBAe S$ cine reucre Too 
:* 77776, 77776, & ree iv 7766 
* WHICH - CAUSE THE IT’' TO SET IN EACH OF THE 
:* EIGHT (8) USER PAGE DESCRIPTOR REGISTERS. THE PDR'S 
* ARE CHECKED *0 SEE THAT IT'S W-BIT DOES SET WHEN THE 
:* PAGE IT IS MAPPED TO IS WRITTEN TO AND THAT THE W817 
:* S NOT SET IN ANY OF THE OTHER PDR'S. USER PDR" S 3.4.5 86 
* ARE MAPPED TO 12-16K FOR THIS TEST. ALSO THE W-BIT 
* D BE CLEARED WHEN THE PDR IS WRITTEN TO. THE 
:* W-BIT PORTION OF THE PDR'S AND THE PAR/PDR ADRS MUX 
: ARE BEING CHECKED. 
23 “KEE EAAAAEAAAEAAAEEATAAAKKKAKAEAKEAAAEAARKAAEEKAEAKEAAAEEKREAKKAKKKEE 
TST54: SCOPE 
1$: MOV #140000, PSW :GO TO USER MODE FOR THIS TEST 
JSR PC, TOFF >TURN T-BIT TRAPPING OFF FOR THIS TEST 
MOV R2 ;SET LOOP COUNTER TO 4 
MOV #UIPAR3 RO ADDRESS OF UIPAR3 INTO RO 
MOV ARI ; LOAD oe PAR VALUE INTO R1 
2$: MOV R1, (RO) + PARS 3-6 TO 12-16K 
S08 2S “LOOP UNTIL ALL 4 OF THEM ARE LOADED 
MOV #UIPDRO,RS ‘LOAD ADDRESS OF FIRST PDR TO BE TESTED IN RS 
MOV RS -SET LOOP COUNTER TO 8 
MOV #17776,R3 : INITIALIZE VIRTUAL 0° DDRESS TO BE IN R3 
MOV #3$,SLPERR *SET LOOP ON ERROR POINTER TO 3$ 
3$: MOV #UIPDRO, “LOAD OF FIRST PDR TO BE SETUP IN RO 
MOV #8. .R2 SET LOOP CONTER TO 8 
MOV #77406,R1 *PUT "WBIT OFF DATA’’ INTO 81 
4$: MOV R1, (RO :CLEAR AL ALL W-BITS BY WRITING TO ALL PDRS 
S08 4$ ;LOOP_UNT L ALL OF THEM ARE SET UP 
MOV (R3), (R3) Do "DATO 1 VIRTUAL ADDR.-SETTING A W-BIT 
BIT (R5) .AWBIT ‘DID T y CAUSE W-BIT TO BE SET? 
BNE 5$ : 1 IF YES 
ERROR +54 “W-BIT DID NOT GET SET IN PDR 
FOR TIGHTER SCOPE LOOP, REPLACE ERROR 
= CALL WITH ‘BR 
BR “SKIP CHECKING OTHER PDR'S-ERROR WILL SET W-BITS 
5$: MOV #8. ,R2 ;SET LOOP COUNTER TO 8 
MOV #UIPDRO,RO ADDR=- OF FIRST PDR TO BE CHECKED IN RO 
6$: BIT (RO) ,AWBIT “DID WeBIT IN OTHER PDRS REMAIN CLEAR? 
BEQ 7$ :BRANCH IF YES 
CMP R5,RO ‘IF WBIT SET, THEN WAS IT PDR UNDER TEST? 
BEQ 7$ “BRANCH IF 
ERROR +55 “W-BIT GOT SET IN MORE THAN ONE PDR 
FOR TGHTE SC LOOP, REPLACE ERROR 
‘CALL WITH s" = 600750 
7$: ADD #2,R0 “POINT RO TO NEXT PDR TO BE CHECK P 
SOB R2,6$ “LOOP UNTIL ALL 8 CHECKED FOR CLEAR W-BIT 
MOV R1.(R5) “WRITE TO THE PDR TESTED TO CLEAR W-BIT 
BIT (R5) .AWBIT “DID WRITING PDR CLEAR THE W-BIT? 
BEQ 8$ “BRANCH IF YES 
ERROR +56 *W-BIT DID NOT CLEAR BY WRITNG THE PDR 


:FOR TIGHTER SCOPE LOOP, REPLACE ERROR CALL 


| = 


ee - 
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TEST # 54 - WBIT LOGIC TEST, USER PDR 


8 14 passed 8$: 


TA 


ay bi 23-APR-81 13:32 PAGE B2-} 


23888 


om | 
Pe) 








H "BR 3$°" = 000740 





; TURN T-BIT BAC 
7BACK TO KERNEL MODE BEFORE LEAVING 


_ 


CKK 


TEST # 5S = TEST 
3197 
032444 
3198 032446 
3199 032452 
3200 032456 
3201 032464 
Ss Sire 
032476 
ee 
032506 
3206 032512 
3207 032514 
3208 032516 
3209 
3210 
3211 
3212 032520 
3213 032526 
3214 032534 
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"W-BIT NOT SET’ CASES 
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001110 


eae TEST # 55 = TEST 


web mf Be Be Be Be Se Be Be Be Be 
wu: seep eee e * 


) 
s 


WG 
ww 


4$: 


A 


"W-BIT NOT SET** CASES 


fF AAAAAAAAAAAAAAAAAAAARAAAAAAAAARERARAAARARAAAAARAAAARAAERAEAARERE ARES 


*TEST 55 TEST ‘W-BIT NOT SET’ CASES 
THIS TEST CHECKS TWO SPECIAL CASES WHERE THE W-BIT DOES 
NOT GET SET ON A WRITE. FIRST CASE IS THAT THE W-BIT 
D NOT SET IN PAGE DESCRIPTOR REG. 7 WHEN WRITING TO 
STATUS REG SRO (KERNEL PDR 7 IS USED). SECOND CASE IS THAT 
THE W-BIT IS NOT SET IF THE ‘DATO’’ IS ABORTED DUE TO AN 
ODD ADDRESS ERROR (KERNEL PDR3 & VIRTUAL ADDR 60001 ARE USED) 
Se ae 
18155: SCOPE 
JSR ;TURN OFF T=BIT TRAPPING FOR THIS TEST 
MOV oF 406. R1 “PUT 'WBIT OFF’’ VALUE FOR PDR IN R1 
MOV #2$.$LPERR 7SET LOOP ON ERROR POINT 
MOV R1,KIPDR3 “LOAD KERNEL PDR3 WITH 77406 TO CLEAR WBIT 
MOV #3$, ERRVEC ‘SET UP LOC. 4 TO 3$ FOR ODD ADDR. 
INC 1 *CAUSE ODD ADDRESS ABORT THRU LOC. 4 
MOV #KERSTK,KSP “RESTORE THE STACK POINTER 
MOV KIPDR3,R2 “READ KI INTO R2 
CMP R1,R2 “WAS W-BIT LEFT CLEARED? 
BEQ 4$ *BRANCH IF YES 
ERROR +57 *W-BIT GOT SET DURING AN ODD ADDR. ABORT 
“FOR TIGHTER SCOPE LOOP 
;REPLAC E ERROR CALL WITH 
-"BR 2$°' = 000757 
MOV #TIMERR,ERRVEC :RESTORE NORMAL CPU TRAP ROUTINE TO LOC.4 


MOV #1$,$LPERR sRESET L 


LOOP ON ERROR POINTER TO 1$ 
JSR PC, TON K ON 


; TURN T-BIT TRAPPING BACK 


ae ae a a eee i” _— 
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END OF PASS ROUTINE 


SEQUENCE 


3215 .SBTTL__END OF PASS ROUTINE 
{ AAAAAAAAAAAAAAAAAAAAEAAAAAERAAAAAAAAEAEARAERERAEAARAERARRAERAAEAA EEE 
;*INCREMENT THE PASS NUMBER ($PASS) 
>*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT Yyyyy'' 
* eWHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
:*]F SW12=1 INHIBIT TRACE TRAP 
>*]F THERES A MONITOR GO TO IT 
**]F (HERE ISN'T JUMP TO LOOP 
032540 SEOP: 
032540 SCOPE 
032542 005037 001102 CLR STSTNM ::ZERO THE TEST NUMBER 
032 005237 001232 INC $PASS is INCREMENT THE PASS NUMBER 
092352 042737 1 001232 BIC #100000, $PASS :DON'T ALLOW A NEG. NUMBER 
032560 005327 EC (PC)+ 3 ? 
032562 000001 SEOPCT: . 1 
032564 003072 T $DOAGN zi YES 
032 012737 V (PC)+,a(PC)+ : RESTORE COUNTER 
032570 1 SENDCT: . 1 
032572 032562 SEOPCT 
032574 104401 032602 TYPE ,65$ :: TYPE ASCIZ STRING 
0 000407 64$ -:GET OVER THE ASCIZ 
P jie: ASCIZ <12><15>/END PASS #/ 
032620 013746 001232 MOV $PASS ,-(SP) PE SPASS FOR TYPEOUT 
032624 104405 TYPDS TYPE=-DECIMAL ASCII WITH SIGN 
32626 104401 032634 TYPE ,67$ $3 TYPE ASCIZ STRING 
032632 000421 BR OVER THE ASCIZ 
nian i678: -ASCIZ / TOTAL ERRORS SINCE LAST REPORT / 
032676 013746 001112 MOV SERTTL,-(SP) ::SAVE SERTTL FOR TYPEOUT 
TAL NUMBER OF ERRORS 
032702 104405 TYPDS =:GO TYPE--DECIMAL ASCII WITH SIGN 
032 104401 001221 TYPE SCRLF :: TYPE CARRIAGE RETURN, LINE FEED 
032710 005037 001112 CLR $ERTTL >:CLEAR ERROR TOTAL 
032714 013700 000042 $GET42: MOV ars2, ::GET ITOR ADDRESS 
032720 001414 BEQ $DOA 3 H IF NO MONITOR 
032722 005 CLR ~(SP) : INSURE THE ‘'T’’ BIT IS CLEAR 
032724 012746 032732 MOV #$CLR.T,-(SP) : SETUP FOR AN RTI OR RIT 
032 26 BR SRTRN DO AN RTI OR RTT TO LOAD THE PSW 
*:WITH A CLEARED 'T'’ BIT 
032732 SCLR.T: 
032732 013700 000042 MOV a#42,R0 +: INSURE RO CONTAINS THE MONITORS 
032756 001405 BEQ $DOAGN : ;RETURN ADDRESS 
032740 RESET :: CLEAR THE WORLD 
032742 004710 SENDAD: JSR PC, (RO) =:GO TO MONI 
032744 000240 NOP 77 SAVE 
032746 000240 NOP +s FOR 
032 000240 NOP > :ACT11 
03275 $DOAGN: 
032752 1044 TRAP ;:PUSH OLD PSW AND PC ON STACK 
032 042716 000020 BIC #20, (SP) *:CLEAR THE ‘'T'’ BIT 
032760 032 010000 146152 BIT #B1T12,aSWR ; RUN WITH TRACE TRAP? 
032766 001005 BNE 1$ ::BR IF NO 
032 005137 001346 COM $TBIT -:7S IT TIME FOR TRACE TRAP 
032774 10040 BM] 1 ::BR IF NO 
032776 052716 000020 BIS #20, (SP) -:SET TRACE TRAP 


CKKTABO 11/44 MEM MGMT PRT A 
END OF PASS ROUTINE 


Re seed 012746 033010 


10 
033010 000137 
033012 020454 
033014 377 377 


9 
MACRO M1113 23-APR-81 13:32 PAGE Bo-1 SEQUENCE 108 


1$: MOV #$LOOP ,-(SP) 3; JUMP TO START OF TEST 
SRTRN: RT] + ¢RETURN==T 


HIS IS CHANGED TO 
3AN ‘RTT’ IF ‘RTT’ IS A LEGAL 
>: INSTRUCTION 
SLOOP : 7 
a(PC)+ 3; ;RETURN | 
SRTNAD: .WORD LOOP | 
000 SENULL: yd -1,°1.,0 >z;NULL CHARACTER STRING | 


CKKTABO 11/44 MEM MGMT PRT A 
SCOPE HANDLER ROUTINE 


3217 


104410 
032777 
001077 
000416 


013746 


040000 


segesees 
SS8ei555 
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146110 


146042 
001102 


0335244 
033244 


177766 


SEQUENCE 109 
_SBTTL SCOPE HANDLER ROUTINE 
“RARE icAAaeeEaaeeEeeeeeceagaeaaeeeeaaaeagaaeeaagaeageaekeaegkaenkeaeaeeene gee 
: STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
> *AND LOAD THE TEST NUMBER (STS TN) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
> *AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
**THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
+ *SW14=1 LOOP ON TEST 
> *SWO9=1 LOOP ON ERROR 
: *SWO8= LOOP ON TEST IN SWR<7:0> 
> *CALL 
:* SCOPE ::SCOPE=I0T 
SSCOPE: 
KS : i: TEST FOR CHANGE IN SOFT-SWR 
1$: BIT #B1T14,aSWR LOOP ON PRESENT TEST? 
BNE VER “YES IF SW14=1 
-MHHAMSTART OF CODE FOR THE XOR TESTERMAMAM 
$XTSTR: BR 6$ : IF RUNNING ON THE SXOR' TESTER CHANGE 
«THIS INSTRUCTION TO A ‘NOP’’ (NOP=240) 
MOV @#ERRVEC,-(SP) 33 SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV #5$,a#ERRVEC  ;;SET FOR TIMEOUT 
TST a¥#177060 >:TIME OUT ON XOR? 
MOV (SP)+,@MERRVEC ::RESTORE THE ERROR VECTOR 
BR SSVLAD =:GO TO THE NEXT TEST 
5$: CMP (SP)+, (SP) + *=CLEAR THE STACK AFTER A TIME OUT 
MOV (SP)+,@MERRVEC ;;RESTORE THE ERROR VECTOR 
BR 7$ OOP ON THE PRESENT TEST 
6$::AAARAEND OF CODE FOR THE XOR TESTERMAAAA 
BT #81T08,aSwWR : LOOP ON SPEC. TEST? 
CMPB aSWR,STSTNM : 30N THE RIGHT TEST?  SWR<7:0> 
BEQ SOVER YES 
2$: MOV 177766, CPSAVE “MOVE CPU ERR REG VALUE TO LOC FOR TST ;DPMOO1 
BIT WBITOO.CPSAVE :SEE IF THE POWER MONITOR BIT IS ON > DPMOO1 
BEQ 2 : H TO CONTINUE ROUTINE IF CLEAR  ;:DPMOO? 
BIC #81T00,177766  :CLEAR THE BIT FOUND T SET = DPMOO1 
EMT +177 =CALL SPECIAL POWER FAIL BIT ERROR CALL :DPMOO1 
CLRB  $ERFLG : CLEAR THE FLAG FOR THE NEXT CHECK > DPMOO1 
2000$: TSTB $ERFLG “DID AN ERROR OCCUR? 
Q SV =:BR IF NO 
BIT #81T09,aSWR :LOOP ON ERROR? 
7$: MOV $LPERR. SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
4$: CLRB SERFLG ::ZERO THE ERROR FLAG 
$SVLAD: INCB $TSTNM -:COUNT TEST NUMBERS 
MOVB  $TSTNM.$TESTN ::SET TEST NUMBER IN APT MAILBOX 
MOV (SP) ,SLPADR -:SAVE SCOPE LOOP ADDRESS 
MOV (SP) .$LPERR =: SAVE ERROR LOOP ADDRESS 
CLR SESCAPE :;CLEAR THE ESCAPE FROM ERROR ADDRESS 
MOVB #1,$ERMAX Y ALLOW ONE(1) ERROR ON NEXT TEST 
SOVER: MOV STSTNM, @DISPLAY ::DISPLAY TEST NUMBER 
MOV SLPADR. (SP) : FUDGE RETURN ADDRESS 
CPSAVE: .WORD 0 “LOCATION TO SAVE CPU ERR REG CONTENTS ;DPMOO1 


me ee ee + + eee ee — and 


eee — —_ ———_ _- _ 
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ERROR HANDLER ROUTINE 


3219 -SBTTL ERROR HANDLER ROUTINE 


'MAASAAAALALALAAALALEAARARASLES ERA RARR RRR ARR RRR ARERR RASA SAAS R DS SS 


“STHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
: sSAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


TO ERRTYP ON ERROR 
: sTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
: HALT ON ERROR 
eeu 3=1 INHIBIT ERROR TYPEOUTS 
+ #SW10=1 BELi ON ERROR 
: #WO9=1 LOOP ON ERROR 
** 
N ::ERROR=EMT AND N=ERROR ITEM NUMBER 
033246 105037 033624 SERROR: CLRB —sIBSAVE :CLEAR THE ITEM BYTE SAVE LOCATION : DPMOO1 
033252 104410 CKSWR >: TEST FOR CHANGE IN SOFT-SwR 
033254 010037 001162 MOV RO, $REGO *SAVE THE CONTENTS OF RO 
033260 010137 001164 MOV R1,$REG1 “SAVE THE CONTENTS OF R1 
3264 010237 MOV R2.$REG2 * SAVE. THE CONTENTS OF R2 
010337 001170 “$REG3 *SAVE THE CONTENTS OF R3 
033274 010437 001172 MOV R4.$REG4 “SAVE THE CONTENTS OF R4 
010537 001174 MOV RS. $REG5 =SAVE THE CONTENTS OF RS 
033304 113737 001102 001254 MOVB § $TSTNM,TESTNO :SAVE THE TEST NUMBER 
033312 105237 001103 7$: INCB = $ERFLG >:SET THE ERROR FLAG 
033316 001775 BEQ 7$ -:DON'T LET THE FLAG GO TO ZERO 
013777 001102 145614 MOV STSTNM.@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
032777 002000 145604 BIT #81710. aSWR *=BELL ON ERROR? | 
033334 001402 BEQ ::NO - SK 
033336 104401 001214 TYPE  ,$BELL 7:RING BELL 
633342 005237 001112 1$: INC SERTTL >: COUNT THE NUMBER OF ERRORS 
33346 011637 001116 MOV (SP) , SERRPC >:GET ADDRESS OF ERROR INSTRUCTION 
033352 162737 000002 001116 SUB #2, $ERRPC 
17737 145532 001114 MOVB  aSERRPC.$ITEMB ;:STRIP AND SAVE THE ERROR ITEM CODE 
033366 122737 000177 001114 CMPBs«#'177,, SITEMB “SEE IF THIS IS THE POWER FAIL CALL :DPMOO1 
033374 001426 BEQ 1001$ “BRANCH AROUND ROUTINE IF IT IS : DPMOO1 
033376 105737 033624 TSTB ~—_ IBSAVE “SEE IF THIS IS THE 2ND ERROR CALL > DPMOO1 
033402 001021 BNE 1 “BRANCH IF SO DPMOO1 
033404 013737 177766 033244 MOV 177766.CPSAVE :MOVE CPU ERR REG TO CPSAVE FOR TEST  :DPMOO1 
033412 032737 000001 033244 BIT WBITOO.CPSAVE :SEE IF POWER MONITOR BIT IS SET = DPMOO1 
33420 001414 BEQ 1001$ “BRANCH IF OK :DPMOO1 
033422 042737 000001 177766 BIC #B1T00.177766  :CLEAR THE BIT FOUND SET DPMOO1 
033430 113737 001114 033624 MOVB  $ITEMB.IBSAVE :MAKE IBSAVE NON-ZERO FOR DUAL CALL :DPMOO1 
033436 112737 000177 001114 MOVB 4#177,$iTEMB “SET $ITEMB TO SPECIAL POWER FAIL PNTR :DPMOO1 
033444 000402 BR 1001$ “BRANCH OVER IBSAVE CLEARING = DPMOO1 
033446 105037 033624 10008: CLRB =—sIBSAVE “CLEAR IBSAVE SO AFTER OND ERROR, EXIT :DPMOO1 
033452 032777 020000 145460 BIT #81713, aSWR ::SKIP TYPEQUT IF SET 
033460 (01004 BNE $ i: SKIP TYPEOUTS 
033462 004737 033626 JSR PC ERRTYP :3G0 TO USER ERROR ROUTINE 
033466 104401 001221 - TYPE  ,$CRLF 
033472 122737 000001 001244 CMPB = WAPTENV.SENV —s : ; RUNNING IN APT MODE 
033500 001007 BNE 2$ "NO, SKIP APT ERROR REPORT 
033502 113737 001114 033514 MOVB $ITEMB,21$ :ISef ITEM NUMBER AS ERROR NUMBER 
033510 004737 035752 JSR PC, SATY4 > :REPORT FATAL ERROR TO APT 


033514 21$: -BYTE 


ee ee ae ae es Te. ee =. ee ee SS SS + Or OO — —— 


oe 


CKKTABO 11/44 MEM MGMT 
ERROR 


033516 


HANDLER ROUTINE 


001 

013716 
022737 
001001 
000000 


105737 
001234 


PRT A 


033624 
145406 


001000 
033624 


001110 
001212 


033624 
001212 
032742 


033624 
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223: iota 22$ 
2s: TSTB 
TST aSwR 
3$ 
T 
CKSWR 
145372 38: Ml er aa 
TSTB lc 
MOV SLPERR, (SP) 
4$: TST SESCAPE 
Q 5$ 
TST8 a 
$$ MOV SESCAPE, (SP) 
000042 CMP #SENDAD , a#42 
BNE 6$ 
HAL T 
6$: 
TSTB IBSAVE 
BNE 7$ 
RTI 
IBSAVE: . WORD 0 


SEQUENCE 
:zAPT ERROR LOOP 
> SEE a POWER FAIL ERROR CALL ;DPMO01 
: H IF NOT - HALT NOT ALLOWED ;DPMO001 


:;TEST FOR CHANGE IN SOF T-SwWR 
: LOOP ON ERROR SWITCH SET? 
;3BR IF NO% 
7SEE IF THIS ERROR CALL is PWR MON ERR ;DPMOO1 
: BRANCH BACK IF SO - DON'T ALLOW FUDGING;DPMOO1 
FUDGE RETURN FOR LOOPING 
$3 CHECK FOR AN ESCAPE ADDRESS 


:;BR IF 

7SEE IF THIS ERROR CALL IS PWR MON ERR  ;DPMOO1 
BRANCH BACK IF SO - DON'T ALLOW FUDGING;DPMOO1 
[FUDGE RETURN ADDRESS FOR ESCAPE 


sACT~11 AUTO-ACCEPT? 
; «BRANCH IF NO 


:SEE IF THIS IS THE PWR FAIL ERROR CALL 
RN TO CALL ORIGINAL ERR IF SO 


:R 
:LOC'N TO HOLD $ITEMB DURING DUAL ERR 


; DPMO01 
DPMO01 


;DPMO01 


a he 


111 


Ah 


CKKTABO 11/44 MEM MGMT 
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ROKK 
Vs 


ROMGOARAD 
ZS VOVARRADS 


ea 


© 
a 


HN SSRIS 


SKK 





PRT A 
001221 
001114 


001116 


000177 
034150 


001372 
033714 


000001 


000002 


000003 


037024 
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ERRTYP: TYPE 
MOV 


1$: 


6$: 


BNE s “BR IF NO 
:*THIS CODE IS FOR OCTAL (16-B1T) FORMAT ( 
MOV a(R1)+,-(SP) 


7$: 


8S: 


9S: 


. SCRLF 
RO,-(KSP) 
CLR RO 
BI1SB ” laaaaiaaes 


MOV SERRPC ,~-(SP) 


13$ 
CMPB #177,R0 
BNE 100$ 
MOV #PFECWS ,RO 
110$ 


DEC RO 

ASL RO 

ASL RO 

ASL RO 

ADD #SERRTB,RO 
MOV (RO)+,2$ 
BEQ 3$ 

TYPE 


0 
TYPE SCRLF 
MOV (R0)+. 4$ 


TYPE 

~ WORD 0 

TYPE . SCRLF 
MOV R1,-(KSP) 


MOV (RO)+, R1 


MOV i RO 
TSTB (RO 


BNE 
MOV @(R1)+,-(SP) 
TYPDS 


te 


BR 11$ 
>*THIS CODE IS FOR BINARY FORMAT (DF=2) 
CMPB (RO) #2 3s 


MOV @(R1)+,-(SP) 
TYPBN 


BNE 15$ 
MOV (R1)+,~(KSP) 


JSR PC ,$DB20 





a ee ee ie ——— + - 


SEQUENCE Jie 


; CARRIAGE RETURN'' & “LINE FEED"' 
:PICKUP THE ITEM INDEX 


:IF ITEM NUMBER IS ZERO, JUST 

; TYPE THE PC OF THE ERROR 

7;SAVE SERRPC FOR TYPEOUT 

; ERROR ADDRESS 

7;GO TYPE--OCTAL ASCIICALL DIGITS) 


;GET OUT 
:SEE IF THIS ERROR CALL IS THE POWER MONITOR BIT CALL 
BRANCH IF NOT 


“MOVE ADDRESS OF POWER MONITOR BIT ERROR TO RO 
“BRANCH TO CALL THE ERROR 


;ADJUST THE INDEX SO THAT IT WILL 
;WORK FOR THE ERROR TABLE. 


FORM TABLE POINTER 
; UP SAGE** "alle 


INTER GOES HERE 


7SA 

:PICKUP “DATA TABLE’* POINTER 
F_NO DATA TO BE TYPED 

“Pl CKUP “DATA FORMAT’ POINTER 

;1S IT FORMAT 0? 


DF =0) 
te a(R1)+ FPR TYPEOUT 
TYPE=-OCTAL ASCIICALL DIGITS) 


BR 11$ 
;*THIS CODE IS FOR DECIMAL FORMAT (DF=1) 
CMPB (RO) ,41 


71S IT FORMAT 1? 
:BRANCH IF NO 
:: SAVE a@(R1)+ FOR TYPEOUT 
:GO TYPE--DECIMAL ASCII WITH SIGN 
S IT FORMAT 2 
F NO 


;BRANCH | 
7:SAVE @(R1)+ FOR TYPEOUT 
3;GO TYPE--BINARY ASCII] 


BR 11$ 
>*THIS CODE IS FOR OCTAL (22-BIT) Ag (DF =3) 
CMPB (RO) 43 


:IS IT FORMAT 3? 


;BRANCH IF NO 
:PUT ADDRESS OF FIRST LOC. ON STACK 
:CONVERT TWO LOCS. TO AN ASCII STRING 


‘ 
, 


Se 11/44 MEM MGMT 


is 


Oooo 
nN © 


733) 


ee ee ed ee eed eed eed ed nd ad ad CO OU OV OO CHO CHO COOOome 
. . 


RAKENSRNSSENOENO 


Pt he erehenr eres nee he 


Ww Ww 
aaa 
PWN -O 
oo OOO ee wee ee) wwe ojejaleoleloleleololelolqololololea) 
ee ee BY : 
u-— 
SS 388s 


WW 
mn 


RROR HANDLER ROUTINE 


716 
019637 
104401 
000000 


PRT A 


oO 
rs 
R 
Ow 


034144 


001221 
040 
034220 
117 
105 
001116 
000 
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000 
034250 
127 
123 
033244 
000 


ADD #3. (KSP) :ONLY NEED 8 CHARACTERS NOT " 
MOV (KSP) +, 108 ‘Pur ADDRESS OF ASCII CHARS. AT 10S 
= TYPE : “TYPE OCTAL VALUE OF 22-BI1T BINARY NO. 
:*THIS CODE IS FOR OCTAL (22-BIT) FORMAT FOR A PAR LEFT SHIFTED 6 (DF=4) 
iS$: MOV R2,-(KSP) *SAVE R2 ON STACK 
MOV R3.-(KSP) > SAVE 
MOV a(R1)+,R3 “LOAD DATA WORD I 
CLR R2 =R2 HOLDS R SIX BITS OF NUMBER 
ASHC »R2 ‘SHIFT VALUE LEFT 6 TIMES 
MOV R2.$TMP4 : LOWER 16 BITS OF ADDRESS 
MOV STMPS “HOLDS UPPER 6 BITS OF ADDRESS 
MOV #STMP4.-(KSP) :PUT ADDRESS OF LOWER BITS ONTO STACK 
JSR $0820 : CONVERT TWO LOCS. TO AN ASCII STRING 
ADD #3. (KSP) ED 8 CHARACTERS NOT 4 
MOV (KSP) +, 16$ :Pur ” ADDRESS OF ASCII CHARS. AT 16$ 
| TYPE “TYPE OCTAL VALUE OF 22-B1T BINARY NO. 
16$: .WORD 0 
MOV (KSP) +,R3 :RESTORE R3 
MOV (KSP) +_R2 “RESTORE R2 
11$: TST (R1) *1S THERE ANOTHER NUMBER? 
BEQ 12$ “BR IF NO 
TYPE ,14$ : TYPE _TWwOC2) SPACES 
TST {R0)+ :POINT TO NEW ‘DATA FORMAT'’ 
12$: MOY (KSP)+,R1 ;RESTORE R1 
13$: MOV (KSP) +.RO “RESTORE RO 
TYPE  ,S$CRLF :"CARRIAGE RETURN’' & ‘LINE FEED"' 
RTS PC URN 
14$: -ASCIZ oe “TWwO(2) SPACES 
PFECWS: .WORD PFECEM,PFECDH,PFECDT,PFECDF 
PFECEM: .ASCIZ ?POWER MONITOR BIT WAS FOUND SET? 
PFECDH: -ASCIZ 2TESTNO ERR PC CPUERR? 
PFECDT: . STESTN, SERRPCCPSAVE .0 
PFECDF: .BYTE 0,0,0,0 


SEQUENCE 


otk 


113 


Kk 9 
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TTY INPUT ROUTINE | 


3315 .SBTTL TTY INPUT ROUTINE 5 
MTrriiittittittiiit titi tii iit iii iii iii, 
* ENABL LSB 
s RAAAAAAEAAAAEAERAEAAAEAAEAAAAAREAEERAEREKAEAERAEAERAEAEREERERRRERE RES 
; *SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
- #ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
; “SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL ‘ 
WHEN OPERATING IN TTY FLAG MODE. 
034264 022737 000176 001140 $ckSWR: CMP #SWREG, SWR ::1S THE SOFT-SWR SELECTED? 
034272 001114 "BNE : :BRANCH IF NO 
034274 105 144644 TSTB  a$TKS *=CHAR THERE? 
034 100111. BPL 15$ >:IF NO, DON'T WAIT AROUND 
034302 117746 144640 MOVB  a$TKB,-(SP) -:SAVE THE CHAR 
034306. 042716 177600 BIC #°C177, (SP) > =STRIP-OFF THE ASCII 
034312 022726 CMP #7. (SP)+ -:IS IT A CONTROL G? 
034316 001102 BNE 15 ::NO, RETURN TO USER 
034320 123727 001134 000001 CMPB = $AUTOB., #1 = ARE WE RUNNING IN AUTO-MODE? 
034326 001476 BEQ 15$ : ;BRANCH IF YES 
034330 104401 035231 TYPE .$CNTLG : J ECHO THE CONTROL-G (*G) 
034334 104401 035236 SGTSWR: TYPE : :3TYPE CURRENT CONTENTS 
034340 013746 176 V SWREG, - (SP) sSAVE SWREG FOR TYPEOUT 
034344 104402 TYPOC 3360 TYPE=-OCTAL ASCII(ALL DIGITS) 
034346 104401 035247 TYPE  ,SMNEW i T FOR NEW SWR 
034352 005046 19$: CLR -(SP) =:CLEAR COUNTER 
034354 005046 CLR -(SP) I W SWR 
034356 105777 144562 7$: TSTB = a@$ TKS =:CHAR THERE? 
034362 100375 BPL 7$ -:IF NOT TRY AGAIN 
034 17746 144556 MOVB  a$TKB,-(SP) ::PICK UP CHAR 
034370 042716 177600 BIC wci7? (SP) -:MAKE IT 7-BIT ASCII 
034374 021627 CMP (SP) #3 3318 iT A CONTROL -C? 
034400 001015 BNE 9$ H IF NOT 
034402 104401 001350 , TYPE  ,$CNTLC ZIYES, ECHO CONTROL-C (“*C) 
034406 062706 000006 -- ADD . UP STACK 
034412 123727 001135 000001 CMPB = SINTAG, #1 ; REENABLE TTY KEYBOARD INTERRUPTS? 
034420 001003 BNE 8$ H IF 
034422 012777 000100 144544 MOV #100, a$TKS ; SALLOW TTY KEYBOARD INTERRUPTS 
034430 000137 035260 8$: JMP CNTRLC =: CONTROL-C RESTART 
£°034434 021627 000025 9S: CMP (SP) #25 ::IS IT A CONTROL-U? 
034440 001005 BNE os 33 IF NOT 
034442 104401 035224 TYPE  ,$CNTLU ;3YES, ECHO CONTROL~U (“U) 
034446 062706 000006 20$: ADD #6, SP = IGNORE PREVIOUS INPUT 
034452 000737 BR 19$ **LET'S TRY IT AGAIN 
034454 021627 . 000015 10S: CMP (SP) #15 2215 iT A <CR>? 
034460 001022 BNE 16$ H IF NO 
034462 005766 000004 TST 4(SP) :IYES, Is IT THE FIRST CHAR? 
034466 001403 BEQ 11$ 33 H IF YES 
034470 016677 000002 144442 MOV 2(SP) ,aSWR VE NEW SWR 
034476 706 000006 11$: D #6,SP *:CLEAR UP STACK 
034502 1 001221 148: TYPE  ,$CRLF ;7ECHO <CR> AND <LF> 
034506 123727 001135 000001 CMPB = $INTAG.#1 RE-ENABLE TTY KBD INTERRUPTS? 
034514 001003 BNE 15$ = :BRANCH IF NOT 
034516 012777 000100 144420 MOV #100, a$TKS *>RE-ENABLE TTY KBD INTERRUPTS 
034524 15$: RTI : ;RETURN 
0345 035602 16$: JSR PC $TYPEC >: ECHO CHAR 
0345 021627 000060 CMP (SP) ,#60 >: CHAR < 0? 
034536 420 BLT 1 : ; BRANCH IF YES 
034540 021627 000067 CMP (SP) ,#67 3 > 


ES 
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TTY INPUT ROUTINE 


ee 
SERS 
Seer esNe 


ae 


i 


PRT A 


000060 
000002 


000004 
144322 
144316 
177600 


144270 


144264 
177600 


000004 
000004 
000004 
000040 


035214 
035224 


000003 
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000023 


SEQUENCE 115 
BGT 18$ : :BRANCH IF YES , 
BIC #60, (SP)+ =: STRIP=OFF ASCII 
TST 2(SP) 7318 THIS THE FIRST CHAR 
BEQ 17$ 33 H IF YES 
ASL (SP) “NO, SHIFT PRESENT 
ASL (SP) 3 CHAR OVER TO MAKE | 
ASL (SP) ROOM FOR NEW ONE. | | 
178: INC 2(SP) *:KEEP COUNT OF CHAR | | 
BIS =2(SP) , (SP) SISET IN NEW CHAR | 
BR 7$ THE NEXT ONE | 
18$: TYPE SQUES TYPE ?<CR><LF > | 
p 50$ >: SIMULATE CONTROL-U 
{AAA REREEREREEREREAEEAEERERKEEREEEEEREEEEERERERERKEEREKEE ; 
:ATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
7* : 
; RDCHR :: INPUT A SINGLE CHARACTER FROM THE TTY 
:* RETURN HERE >: CHARACTER IS ON THE STACK 
:* ::WITH PARITY BIT STRIPPED OFF 
SRDCHR: MOV SP) ,-(SP) DOWN THE PC 
MOV eCSPS, 2(SP) >: SAVE THE PS 
1$: TSTB ~—s._ STK ::WAIT FOR 
BPL 1$ 7:A CHARACTER 
MOVB  a$TKB,4(SP) *:READ THE TTY 
BIC #°C<177>,4(SP) ::GET RID OF JUNK IF ANY 
CMP 4(SP) #23 i218 iT A CONTROL-S? 
BNE 3$ H IF NO 
BPL 2$ $3 LOOP UNTIL ITS THERE 
MOVB  a$TKB,-(SP) CHARACTER 
BIC #*C177, (SP) «MAKE IT 7-B1T ASCII 
CMP (SP)+,# 7:18 IT A CONTROL-Q? 
BNE 2$ =:IF NOT DISCARD IT 
BR 1$ © Vee SUME 
3$: CMP 4(SP) ,ASXON *:1S IT A RANDOM XON? : RANOO1 
BEQ 1$ > BRANCH IF YES > RANOOT 
CMP 4(SP) ,#140 ::1S IT UPPER CASE? , 
BLT * =BRANCH IF YES 
CMP 4(SP) .#175 -:1S IT A SPECIAL CHAR? 
BIC #40,4(SP) i: IT R CASE ad 
4$: RTI BACK TO USER 
PITTI LLL LLL LLL LLL LLL LLL LLL LLL hb ttt 
pS THYS | ROUTINE WILL INPUT A STRING FROM THE TTY 
ze RDLIN ;ZINPUT_A STRING FROM THE T 
i RETURN HERE *ADDRESS OF FIRST CHARACTER "uru BE ON THE STACK 
«TERMINATOR WILL BE A BYTE OF ALL O'S 
$RDLIN: MOV RS -(SP) 7: SAVE R3 
CLR SP) ;7CLEAR THE RUBOUT KEY 
2$: CMP aSTTYINGS. R3 : SBUFFER FULL? 
BLOS 4$ ::BR IF YES 
. RDCHR *:GO READ ONE CHARACTER FROM THE TTY 
MOVB (SP) +, (R3) : GET 


CHARACTER 
CMPBs#3, (R’'3) -:1S IT A CONTROL-C? 
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5110 
114 
116 
1 
124 
1 
132 

035136 
140 
144 
150 
154 
156 
162 

66 
70 
172 
74 
202 


Oooo°oo 
VMuivv ws 
wash as 


—— — 
WMS 


O325 1 
035247 





PRT A 


035224 
000022 
035014 
001220 
035212 


035212 
000015 
177777 
001222 


000004 
035214 


125 
107 
012 
040 
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035212 


035212 


000002 
000004 


10$: 


5$: 


4$: 
3$: 


9$: 


STTYIN: 
SCNTLU: 
SCNTLG: 
SMSWR : 


SMNEW : 


BNE 
TYPE 
TST 


ASC 
eASCIZ 
-ASCIZ 
-ASCIZ 


10$ 
,SCNTLC 
(SP)+ 
(SP)+,R3 


CNTRLC 
#177, (R3) 


(R3) ,9$ 


-1(R3) 


) 
WSTTYIN,4(SP) 


0 
0 


8. 
/*U/<15><12> 


/*G/<15><1 


=F" ° 


NEW = / 


SEQUENCE 
;7BRANCH IF NO 
+3 TYPE fy CONTROL =C (*C) 
;; CLEAN T KEY OFF OF THE STACK 
; sRESTORE 


:GOTO wet OF RESTART 
i318 IT A RUBOUT 


“BR IF NO 
“1S THIS THE FIRST RUBOUT? 
*:TYPE A BACK SLASH 


::SET THE RUBOUT KEY 
7 ;BACKUP BY ONE 
7zSTACK EMPTY? 


77BR IF YES 
i tb a TO TYPEOUT THE DELETED CHAR. 


77BR IF NO 
7: TYPE A BACK SLASH 


;7CLEAR THE RUBOUT KEY 
e215 — A CTRL U? 


A CONTROL ‘U"’ 
260 START OVER 
e315 ge A *“R'"? 


: CLEAR THE CHARAC TER 
ails f- “cR'’ @° 

TYPE THE INPUT STRING 
260 “: 4 eee CHACTER 
;:;CLEAR THE BUFFER AND LOOP 
7 7ECHO THE CHARACTER 


;-CHECK FOR RETURN 
::LOOP IF 


27 CLEAN “—" KEY FROM THE STACK 


$ ADJUST THE STACK AND PUT ADDRESS OF THE 
ie FIRST ASCII CHARACTER ON IT 


; RETURN 
: STORAGE FOR ASCII CHAR. TO TYPE 
>: TERMINATOR 
; SRESERVE & B BYTES FOR TTY INPUT 


;;CONTROL ‘'G’’ 


116 


3317 
3318 8 5 
$320 035 
0 
1 035276 
‘ 035 
035310 
3324 035312 
5 035316 
035322 
7? 035524 
035 
035 
3330 0353 
3331 035337 
3332 035367 


LET 


746 
104402 


o--— 

a 
are 
nN 


BE 


= 


gett 
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001232 


032542 


040 
125 
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035332 


-SBTTL CONTROL-C SERVICING ROUTINE 
001210 CNTRLC: MOV SPASS ,STMP5S 


. WORD 
eASCIZ 
ASCII 
-BYTE 


se ee 


SEQUENCE 


GET THE VALUE OF “SPASS"’ 
:FORM CURRENT PASS # 
CMSG :TYPE THE TEST STOPS HERE 
$TSTNM, 1$ =SAVE TEST NUMBER 
1$,-(SP) “SAVE 1$ FO TYPEOUT 


:SAVE STMPS FOR TYPEOUT 
; TYPE ASCII DECIMAL WITH SIGN 
SASK FOR NEW SWR VALUE 


; JUMP hy END OF PASS + 2 


: TEST # BUFFER 
/ :2 SPACES & STOP MESSAGE 
/ JUN ING TO END OF PASS/<15><12> 


.c$ 
STMP5 ,~(SP) 


t_ 


117 





Viv! 


pe leojlejeleojlelelelelojeoleoj = 


Ww PERE PERE REELS 
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001157 


000002 
000001 


000100 
035440 
035742 
000040 
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- SBTTL TYPE ROUTINE 
POTTTI ITI TILL LLL LLL iit iiiiiiiiiiiii 
* @ROUT INE TO TYPE ASCIZ aye * MESSAGE MUST ree te WITH A O BYTE. 
:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
> *NOTE1: SNULL CONTAINS THE CHARACTER " BE USED AS THE FILLER CHARACTER. 


> *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
> *NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
*® 
> *CALL: 
:#1) USING A TRAP INSTRUCTION 
Con TYPE ,MESADR ::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
> te 
7 TYPE 
:* ME 
*® 
$TYPE: TSTB  $TPFLG ::1S THERE A TERMINAL? 
BPL i$ ::BR IF YES 
HALT -:HALT HERE IF NO TERMINAL 
BR 3$ 33 VE 
1$: MOV RO.-(SP ss RO 
MOV @2(SP) ,RO >:GET ADDRESS OF ASCIZ STRING 
CMPB  §WAPTENV,SENV ::RUNNING IN APT MODE 
BNE =:NO,GO CHECK FOR APT CONSOLE 
BITB §$ #APTSPOOL.SENVM ::SPOOL MESSAGE TO APT 
BEQ 62$ ::NO,GO CHECK FOR CONSOLE 
MOV RO,61$ 7:SETUP MESSAGE ADDRESS FOR APT 
JSR PC. SATY3 ::SPOOL MESSAGE TO APT 
61$: . WORD ::MESSAGE ADDRESS 
62$: BITB #$M#APTCSUP,SENVM ;::APT CONSOLE SUPPRESSED 
BNE +2 YES. SKIP TYPE OUT 
2s: MOVB  (RO)+,-(SP) >:PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4$ -*BR IF IT ISN'T THE TERMINATOR 
TST (SP)+ ::]F TERMINATOR POP IT OFF THE STACK 
60$: MOV (SP)+,RO ¥ ORE RO 
3$: ADD #2, (SP) : ADJUST RETURN PC 
RTI : : RETURN 
4$: Cre #HT, (SP) : ;BRANCH IF <HT> 
cHPe #CRLF , (SP) : BRANCH IF NOT <CRLF> 
TST (SP) + ::POP <CR><LF> EQUIV 
TYPE ::TYPE A CR AND L 
SCRLF 
CL SCHARCNT ; CLEAR CHARACTER COUNT 
-GET NEXT CHARACTER 
S$: JSR PC STYPEC *:GO TYPE THIS CHARACTER 
6$: CMPB =s«s«oSFILLC.(SP)+ ::IS IT TIME FOR FILLER CHARS .? 
BNE ::IF NO GO GET NEXT 
MOV SNULL.- (SP) ::GET # OF FILLER CHARS. NEEDED 
>, AND THE NULL C 
7$: DECB ~—=-:«1( SP) ::DOES A NULL NEED TO BE TYPED? 
BLT 6% ;BR IF NO--GO POP THE NULL OFF OF STACK 
JSR PC .STYPEC :GO TYPE A NULL 
DECB SCHARCNT ; D0 NOT COUNT AS A COUNT 
‘HORIZONTAL TAB PROCESSOR 
8S: MOVB 3 #":—« (SP) ::REPLACE TAB WITH SPACE 


= 


TY 


ROUT I 


035562 ? 035602 STYPEC 
035730 BITB ###7.$CHARCNT 

035574 001372 BNE 9$ 

039576 005726 TST (SP) + 

0 000724 BR 2$ 

03 STYPEC: 

03 105777 143336 TSTB = aS TKS 

03 100022 BPL 10$ 

035610 017746 143332 MOV TKB,-(S 

035614 042716 177600, BIC #177600, (SP) 

03 122716 000023 #SXOFF , (SP) 

035624 001012 02$ 

03 101$: 

03 105 143312 TSTB  ~=s_ @STKS 

03 100375 BPL 101$ 

035634 117716 143306 MOVB = a$TKB, (SP) 

035640 042716 177600 BIC #177600, (SP) 

035644 122716 21 C #SXON, (SP) 

035650 001 BNE 101$ 

035652 1028: 

035652 005726 TST (SP) + 

035654 10$: 

035654 105777 143270 TSTB = aS TPS 

035660 100375 BPL 0$ 

035662 126627 000002 000021 CMPB =. 2( SP) , #SXON 

035670 001420 BEQ STYPEX 

035672 116677 000002 143252 MOVB 2(SP),a$TPB 

035700 122766 000015 000002 CMPB ss ACR, 2( SP) 

35706 001003 BNE 1$ 

035710 105037 035730 CLRB §  $CHARCNT 

035714 000406 BR STYPEX 

035716 122766 000012 000002 1S: CMPB ALF, se(sP) 

035724 001402 BEQ $TYPE 

035 105227 INCB (PC) 

035 000000 SCHARCNT:.WORD 0 

035732 000207 $TYPEX: RTS PC 


: 3 TYPE A SPACE 
sé H IF NOT AT 
:3 STOP 
;POP SPACE OFF STACK 
GET NEXT CHARACTER 


+3 CHAR IN KYBD BUFFER? 
BR IF NOT 


CHAR 
: STRIP EXTRANEOUS BITS 
CHAR XOFF 


7zWAIT FOR CHAR 


:sFIX STACK 
7zWAIT UNTIL PRINTER IS READY 
e215 pe A RANDOM XON? 


ee ES 
zL CHAR TO BE TYPED INTO DATA REG. 
3318 ge Bes A CARRIAGE RETURN? 


H IF NO 
: :YES=-CLEAR CHARACTER COUNT 
3318 eee ere” LINE FEED? 


::COUNT THE CHARACTER 
; CHARACTER COUNT STORAGE 
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D 10 
MACRO M1113 23-APR-81 13:32 PAGE 92 


036200 
036176 
036200 


001224 
036110 
000004 


001226 
000004 


. SBTTL 


APT COMMUNICATIONS ROUTINE 


MERA RBERBAAASAAAAAALALALAAALARAAA ALAR ARR AASL ARR ARA RAR RRA RSA R RASS SE SS 


saTY1: MOVB 
: -MOVB 


BR 
MOVB 


we.hCt« k#. See 


2s: TSTB 
BNE 


12$: 


SMFLG: .BYTE 
SLFLG: 
SFFLG: 


APTSIZE=300 ~ 
APTENV=001 
APTSPOOL =100 


_SAPTCSUP=040 | 


#1, SFFLG 
|. SMFLG 


SATYC 
#1 ,SFFLG 
RO,-(SP) 
R1,~(SP) 
SMF_G 


c 


5$ 
#APTENV, SENV 


~~ . SENVM 


@4(SP) ,RO 
#2.4(SP) 
SMSGTYPE 


12$ 
SMSGTYPE 


4 


:3TO REPORT FATAL ERROR 
::TO TYPE A MESSAGE 


::TO ONLY REPORT FATAL ERROR 
;sPUSH RO ON STACK 
= =PUSH R1 ON STACK 
i: SHOULD | TYPE A MESSAGE? 
: | OPERATING UNDER APT? 
: SHOULD. SPOOL MESSAGES? 
7IF NOT: BR 
“GET MESSAGE ADDR. 
: ;BUMP RETURN ADDR. 
; 3SEE IF DONE W/ LAST XMISSION? 
NOT: WAIT 


::PUT ADDR IN MAILBOX 
:sFIND END OF MESSAGE 


;;SUB START OF MESSAGE 
MESSAGE LNGTH IN WORDS 
ILBOX 


>: TELL APT TO TAKE MSG. 
::PUT MSG ADDR IN JSR LINKAGE 
-BUMP RETURN ADDRESS 

: PUSH 199776 ON STACK 
>:CALL TYPE MACRO 
: SHOULD REPORT FATAL ERROR? 
: FRUNNING UNDER APT? 

NOT: BR 
:7F INISHED LAST MESSAGE? 
GET ERROR # 

RETURN ADDR. 


; ; BUMP 
:zTELL APT TO TAKE ERROR 
7: CLEAR FATAL FLAG 


; CLEAR 
: :POP STACK INTO R1 
: POP STACK INTO RO 
URN 
: :MESSG. FLAG 
::LOG FLAG 
: FATAL FLAG 


120 


TT, ETE TTT TET TTT TTT TS OK 
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BINARY TO ASCII AND TYPE ROUT INE 


3337 - SBTTL BINARY TO ASCII AND TYPE ROUTINE 
+ eke eee AeA RATA A EAA A TATRA AA AAA ARTA ATA A TATA A AeA RARE ETE 
:*THIS ROUTINE IS USED TO oa P 16-B1T BINARY NUMBER TO A 16-B8IT 
: SBINARY-ASCII NUMBER AND TYPE 
** 





:* MOV NUMBER, - (SP) : NUMBER TO BE TYPED 
= te TYPBN =: TYPE IT 
0 010146 $TYPBN: MOV R1,-(SP) >: SAVE R1 ON THE STACK 
0 016601 000006 MOV 6(SP) ,R1 ;7GET THE INPUT NUMBER 
036210 1 SEC ;SET *'C'' SO CAN KEEP TRACK OF THE NUMBER OF BITS 
03621 199987 000060 036254 1S: MOVB #'0,$BIN *=SET CHARACTER TO AN ASCII 'O"'. 
0 006101 ROL R1 -:GET THIS BIT 
036222 0014 BEQ 2$ + : DONE? 
036224 105537 036254 ADCB  $BIN >:NO=-SET THE CHARACTER EQUAL TO THIS BIT 
0 104401 036254 TYPE ,SBIN £260 TYPE THIS BIT 
0 000241 CLC CLEAR ‘ SO CAN KEEP TRACK OF BITS 
0 000765 BR 1$ DO THE NEXT BIT 
036240 012601 2$: MOV (SP)+,R1 «POP THE STACK INTO R1 
036242 016666 000002 000004 MOV 2(SP),4(SP) : SADJUST THE STACK 
0 0 MOV (SP)+, (SP) 
RTI ::RETURN TO USER 


$BIN: .BYTE 0Q,0 | ;;STORAGE FOR ASCII CHAR. AND TERMINATOR 


mm a ee ee ee ee 2 
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BINARY TO OCTAL (ASCII) AND TYPE 
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3339 - SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
s RAAAAAAAAAAEAEAAAAARAAAAAEEAAARAARAEAAAAEAAAARAAAEAARAAERERRARARARATA EEE 
“STHIS ROUTINE IS USED TO — A 16-BIT BINARY NUMBER TO A 6-DIGIT 
-*OCTAL (ASCII) NUMBER AND TYPE IT 
; s$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
*® 
7* MOV NUM, - (SP) ; ;NUMBER TO BE TYPED 
:* TYPOS oh FOR TYPEOUT 
:* -BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3* -BYTE ™ ::M=1 OR O 
8 3:1=TYPE LEADING ZEROS 
:* 3, 0=SUPPRESS LEADING ZEROS 
* 
= *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
; sSTYPOS OR $TYPOC 
:* MOV NUM, - (SP) ;NUMBER TO BE TYPED 
:* TYPON STCALL FOR TYPEOUT 
"* 
eC HERE FOR TYPEOUT OF A 16 BIT NUMBER 
;* : 
:* MOV NUM, ~ (SP) : ;NUMBER TO BE TYPED 
;* TYPOC >;CALL FOR TYPEOUT 
036256 017646 $STYPOS: MOV @a(SP) ,-(SP) :zPICKUP THE MODE 
036262 116637 000001 036501 MOVB 1(SP) , SOF ILL ; LOAD gen FILL SWITCH 
036270 112637 036503 MOVB  (SP)+, E+1 R OF DIGITS TO TYPE 
036274 062716 000002 ADD #2, (SP) > :ADJUST RETURN ADDRESS 
036300 000406 BR STYPON 
036302 112737 000001 036501 S$TYPOC: MOVB #1 SOF ILL 72SET THE ZERO FILL SWITCH 
036310 112737 000006 036503 MOVB ‘ + :;SET FOR SIX(6) DIGITS 
036316 112737 000005 0365 STYPON: MOVB #5,S0CNT 7::SET THE ITERATION COUNT 
036324 010346 MOV 7 (SP 77 SAVE R3 
0 010446 MOV R4,-(SP) s SAVE R64 
03635 010546 MOV R5,~-(SP) ti ge RS 
036332 113704 036503 MOVB E+1,R4 ::GET THE NUMBER OF DIGITS TO TYPE 
036336 5404 NEG 4 
036340 704 000006 ADD #6 RS 7: eter IT FOR MAX. ALLOWED 
0 110437 036502 MOVB R4, SOMODE 2 saeye IT FOR USE 
036350 113704 036501 MOVB SOF ILL .R4 :GET THE ZERO FILL SWITCH 
036354 016605 000012 MOV eal R5 : PICKUP THE INPUT — 
036360 005003 CLR :3 AR THE OUTPUT WORD 
0 006105 1$: ROL Rs se ROTATE MSB INTO ‘'C 
036364 000404 BR 3$ :: O MSB 
0 006105 2$: ROL R5 :: FORM THIS DIGIT 
036370 006105 ROL RS 
036372 006105 ROL R5 
036374 010503 MOV RS,R3 
036376 103 3$: ROL R3 ;GET LSB OF mis DIGIT 
036400 105337 036502 DECB SOMODE ‘TYPE THIS DIGIT? 
036404 100016 BPL IF NO 
036406 042703 177770 BIC #177770,R3 «GET RID OF JUNK 
036412 001002 BNE >: TEST FOR O 
036414 005704 TST R4 3: SUPPRESS THIS 0? 
036416 001403 BEQ S$ -7BR IF YES 
036420 4$: INC 4 ‘ ON'T SUPPRESS ANYMORE 0°S 
036422 052703 000060 BIS #°O,R3 = :MAKE THIS DIGIT ASCII 
036426 052703 000040 5$: BIS #* ,R3 ::MAKE ASCII IF NOT ALREADY 
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adedad adad 
pase 


= 
MmO 


Songs 


PRT A 


000002 000004 


7$: 


6$: 


8$: 
SOCNT: 


SOF ILL: 
SOMODE : 


E 
. WORD 
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P)+,R3 
(SP) ,4(SP) 


7;SAVE FOR TYPING 
+360 A hy es DIGIT 


‘TBR IF MORE TO DO 
BR IF 


ee 
Me 


: INSURE LAST DIGIT | a A BLANK 
:7G0 DO THE LAST DIGIT 

:URESTORE R R5 

7 sRESTORE R4 

: RESTORE R 


R3 
:;SET THE STACK FOR RETURNING 


; sRETURN 

;sSTORAGE FOR ASCII DIGIT 

: ¢ TERMINATOR FOR TYPE ROUTINE 
:OCTAL DIGIT COUNTER 

::ZERO FILL SWITCH 

; NUMBER OF DIGITS TO TYPE 


SEQUENCE 


123 
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AND TYPE ROUTINE 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
“EEA EEAAEREAAAAARAAKAAEREEERAAAAAAERAREASHAARAREAAREERARAERRAREAEEAEEE 
“THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
“#NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
“BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
: REPLACED WITH SPACES. 
**® 4 
oe V NUM, - (SP) ::PUT THE BINARY NUMBER ON THE STACK 
:* TYPDS ::;GO TO THE ROUTINE 
STYPDS: a 
MOV RO,-(SP) ; PUSH RO ON STACK 
MOV R1,-(SP) *PUSH R1 ON STACK 
MOV R2.-(SP) >:PUSH R2 ON STACK 
MOV R3,-(SP) = =PUSH R3 ON STACK 
MOV R5.-(SP) ;;PUSH_R5_ ON STACK 
020200 MOV #20200, -(SP) *SET BLANK SWITCH AND SIGN 
000020 MOV 20(SP).R *:GET THE INPUT 
BPL 1$ ::BR IF INPUT IS POS 
NEG 5 ::MAKE THE BINARY NUMBER POS 
000055 000001 MOVB #'=,1(SP) ::MAKE THE ASCII 
1$: CLR 0 >:ZERO THE CONSTANTS INDEX 
036720 MOV #SDBLK,R3 =:SETUP THE OUTPUT POINTER 
000040 MOVB #' ,(R3)+ :7SET THE FIRST CHARACTER TO A BLANK 
2$: CLR 2 >:CLEAR THE BCD NUMBER 
036710 MOV $DTBL (RO) ,R1 >:GET THE CONSTANT 
3$: SUB 1,.R5 ;3FORM THIS BCD DIGIT 
BLT 4$ F 
INC Re >: INCREASE THE BCD DIGIT BY 1 
4$: ADD R1.R5 ; ADD BACK THE CONSTANT 
TST 2 : CHECK IF BCD DIGIT=0 
BNE 5$ FALL THROUGH IF 0 
TSTB ~—s.:« CSP) STILL DOING LEADING 0'S? 
I 7$ :i8R IF YES 
5$: ASLB — (SP) 33 
BCC 6$ IF NO 
000001 177777 MO 1(SP),-1(R3) |: : YES=-SET THE SIGN 
000060 6$: BIS #°0,R2 ;:MAKE THE BCD DIGIT ASCII 
000040 7$: BIS R2 *:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
MO R2, (R3)+ *>PUT THIS CHARACTER IN THE OUTPUT BUFFER 
TST (RO) + >: JUST INCREMENT ING 
000010 CMP RO,410 >: CHECK THE TABLE INDEX 
BLT $ >:GO DO THE NEXT DIGIT 
BGT *:GO TO EXIT 
MOV R5,R2 :3GET THE LSD 
BR *GO CHANGE TO ASCII 
8$: 1s7B (SP) + ; WAS THE LSD THE FIRST NON-ZERO? 
177777 177776 MOVB  -1(SP).-2(R3)  ::YES=--SET THE SIGN FOR TYPING 
9$: CLRB —s- R’3) >:SET THE TERMINATOR 
MOV (SP) +,R5 >:POP STACK INTO R5 
MOV (SP)+.R3 >:POP STACK INTO R3 e 
MOV (SP)+.R2 =:POP STACK INTO R2 
MOV (SP)+,R1 =POP STACK INTO R1 
MOV (SP)+_RO >=POP STACK INTO RO 
036720 TYPE ,$DBLK > NOW TYPE THE NUMBER 
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7;ADJUST THE STACK 


MOV ee 24 (SP) 
MOV (SP) +, (SP) 
RTI ;zRETURN TO USER 


oene eeeet#eaeneea 
ee ee ee 


SEQUENCE 


125 


EE - 
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SAVE AND RESTORE RO-R5 ROUTINES 


3343 -SBTTL SAVE AND RESTORE RO=-RS ROUTINES 
£ EAAAEAAAAAAAEARAAARARATERAAAAAAAEAAAAEAEAAAAEAAAAEEAAARAEAEREAAERERERR EES 
« SSAVE RO-R5 
= *CALL: 
3;* SAVREG 
; *UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
‘ eTOP=--(+16) 
7% +2---(+18) 
3% +4---R5 
7% +6---R4 
3* +8---R3 
3 *+10---R2 
3%*+12---R1 
| 3 *+14---R0 
036730 SSAVREG: 
036730 010046 MOV RO,-(SP) : PUSH RO ON STACK 
036732 010146 MOV R1,~(SP) 77PUSH R1 ON STACK 
036734 46 MOV R2,-(SP) ~ ¢zPUSH R2 ON STACK 
010346 MOV R3,-(SP) 33 CK 
036740 010446 MOV R4,-(SP) ; PUSH R4 ON STACK 
036742 010546 MOV R5,-(SP) : RS ON STACK 
6 000022 MOV 22(SP), ~(SP) SAVE PS OF MAIN FLOW 
036750 016646 000022 MOV 22(SP) .-(SP) 23 SAVE PC OF MAIN FLOW 
036754 016646 000022 MOV 22(SP) ,-(SP) 7: SAVE PS OF CALL 
036760 016646 000022 MOV 22(SP) ,-(SP) : SAVE PC OF CALL 
036764 000002 RTI 
air RO-R5 
:* : 
3” RESREG 
036766 SRESREG: 
036766 012666 000022 MOV (SP)+,22(SP) ; sRESTORE PC OF CALL 
036772 012666 000022 MOV (SP)+,22(SP) :RESTORE PS OF CALL 
036776 012666 000022 MOV (SP)+, 7 22(SP) = RESTORE PC OF MAIN FLOW 
037002 012666 000022 MOV (SP)+, 2e(SP) : RESTORE PS OF MAIN FLOW 
012605 MOV (SP)+_R : POP STACK INTO R5 
70 0 MOV (SP)+,R4 ::POP STACK INTO R4 
037012 012603 MOV (SP)+,R3 : POP STACK INTO R3 
037014 012602 MOV (SP)+,R2 :POP STACK INTO R2 
037016 012601 MOV (SP)+,R1 >:POP STACK INTO R1 
012600 MOV (SP)+,RO :;POP STACK INTO RO 


037020 
037022 000002 RTI 


' 
eee a —— -- -- - — 


er ee ee eee 


— 
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DOUBLE LENGTH BINARY TO POCTAL ASCII CONVERT ROUTI 


3345 .SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
SAA AAAAAAAAAARAAAAAAAAAAAAAAAAAAAAAAAEAAARAAAAAEAAAAARAAAAAERAA AEE 
**THIS ROUTINE WILL CONVERT A 32-BI1T UNSIGNPD BINARY NUMBER TO AN 
; SUNS I GNED OCTAL ASCI2Z NUMBER. 
**® 
ti MOV #PNTR,-(SP) ; POINTER TO LOW WORD OF BINARY NUMBER 
z* JSR PC, a#$DB20 ::CALL THE INE 
- RETURN THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
037024 104413 $DB20: SAVREG ;SAVE ALL REGISTERS 
03 016601 900002 MOV 2(SP), “PICKUP THE POINTER TO LOW WORD 
037032 012705 03714 MOV ssocrile3. RS ::POINTER TO DATA TABLE 
037036 012704 000014 MOV . RS *:DO ELEVEN CHARACTERS 
037042 012703 177770 MOV #°C7_R3 3 
037046 012100 MOV (R1)+,RO >: LOWER WORD 
037050 012101 MOV (R1)+.R1 : HIGH 
037052 005002 CLR R2 TERMI 
037054 110245 1$: MO R2,-(R5) :=PUT CHARACTER IN DATA TABLE 
037056 010002 MOV RO.R2 *:GET THIS DIGIT 
037060 005304 DEC R4 *=COUNT THIS CHARACTER 
037062 003007 BGT 3$ *:BR IF NOT THE LAST DIGIT 
037064 001405 BEQ 2$ ::BR IF IT IS THE LAST DIGIT 
037066 005205 INC R5 | HALL DIGITS DONE~ADJUST POINTER FOR FIRST 
037070 010566 000002 MOV R5,2(SP) *:ASCIZ CHAR. & PUT IT ON THE STACK 
037074 104414 RESREG *:RESTORE ALL REGISTERS 
037076 000207 RTS PC ;;RETURN TO USER 
037100 006203 2$: ASR R3 “POSITION THE MASK FOR THE LAST DIGIT 
037102 006001 3$: ROR R1 : POSITION THE BINARY NUMBER FOR 
37104 006000 ROR RO 2 THE NEXT OCTAL DIGIT 
037106 006001 ROR R1 
037110 006000 ROR RO 
37112 006001 ROR R1 
037114 006000 ROR RO 
037116 040302. BIC R3.R2 -:MASK OUT ALL JUNK 
37120 062702 ' 000060 ADD #°0,R2 ; MAKE THIS CHAR. ASCII 
037124 000753 BR 1$ PUT IT IN THE DATA TABLE 
037126 SOCTVL: .BLKB 14. > :RESERVE DATA TABLE 
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‘ - SBTTL TRAP DECODER 


Stetina suo happily rch 


:STHIS ar WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
HROUGH THE TRAP TABL 


AND USE IT TO INDEX T E FOR THE STARTING ADDRESS 
: SOF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
: #GO TO THAT ROUTINE. 
$7 MOV RO,-(SP) SAVE RO 
MOV 2(SP) ,RO 3GET TRAP ADDRESS 
TST -(RO) : sBACKUP BY 2 
MOVB _ (RO) .RO 3 3GET RIGHT BYTE OF TRAP 
ASL RO *POSITION FOR INDEXING 
MOV $TRPAD (RO) RO $ HINDEX TO TABLE 
RTS RO - ROUT INE 
::THIS IS USE TO HANDLE THE- “GETPRI ** MACRO 
$TRAP2: MOV (SP) ,-(SP) ::MOVE THE PC DOWN 
4(SP),2(SP) : SMOVE THE PSW DOWN 
“RESTORE THE PSW - g 
.SBTTL 


TRAP TABLE 
:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
: *BY THE onthe INSTRUCTION. 





128 


$TRPAD: . WORD 2 
STYPE 3: CALL=TYPE TRAP+1(104401) TTY p< ROUT INE 
STYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
STYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OC TAL NUMBER (NO LEADING ZEROS) 
STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE CI NUMBER (WITH SIGN) 
STYPBN :: L=TYPBN TRAP+6(104406) TYPE BINARY (ASCI 
SGTSWR ;;CALL=GTSWR TRAP+7 (104407) SOF T-SWR SETTI 
SCKSWR ;;CALL=CKSWR TRAP+10(104410) TEST FOR CHANGE IN SOFT-SWR 
SRDCHR ;:; L=RDCHR TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
SRDLIN ;;CALL=RDLIN TRAP+12(104412) TTY TYPEIN STRING ROUTINE 
$SAVREG ;;CALL=SAVREG TRAP+13(104413) SAVE RO-R5S ROUTINE 
SRESREG ;::CALL=RESREG TRAP+14(104414) RESTORE RO-R5 ROUTINE 
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POWER DOWN 








AND UP ROUTINES ; 
3349 .SBTTL POWER DOWN AND UP ROUTINES 5 
£ AAEAAAAAAEAEAAARA AAA AAEAAEAAAAAEAAAAAAERAEAAAEAAAAAAAAREARERER RES ) 

“POWER DOWN ROUTINE I ¢ 
037232 012737 037410 000024 S$PWRDN: MOV #SILLUP,a#PWRVEC :3SET FOR FAST UP , 
037240 012737 000340 000026 MOV #340, Q#PWRVEC+2 ;;PRIO:7 ’ 

037508 010046 MOV RO,-(SP) 3 a ho ON STACK 
037250 010146 . MOV R1,-(SP) ::PUSH R1 ON STACK 
037252 010246 ' MOV R2,-(SP) *:PUSH R2 ON STACK 

037254 010346 MOV R3,-(SP) 3: PUSH ON STACK 
037256 010446 MOV R4,-(SP) +:PUSH R4 ON STACK : 
0 01 MOV RS,~-(SP) ::PUSH RS ON STACK ' 
037262 017746 141652 MOV @SWR,-(SP) ;ZPUSH @SWR ON STACK ‘ 
037266 010637 037414 MOV SP, SSAVR6 :SAVE SP ‘ 
05 72 012737 037304 000024 MOV #SPWRUP ,a#PWRVEC ::SET UP VECTOR i 
i 
037302 000776 BR .-2 ‘ 
2 :  RERREERERERERRARERREREREREREEKKAKEEKERREREEREREREEEEREERR EERE hi 
POWER UP ROUTINE ' 
03 012737 037410 000024 $PWRUP: MOV #SILLUP,@WPWRVEC ;;SET FOR FAST DOWN " 
037312 013706 037414 MOV SSAVR6, SP T SP , 
037316 005037 037414 CLR SSAVR6 :IWALT LOOP FOR THE TTY . 
037322 005237 037414 1$: INC SSAVR6 ::WAIT FOR THE INC k 
037326 001375 BNE 1$ *:0F WORD ' 
03 012677 141604 MOV (SP)+, aSwWR 3 POP STACK INTO — ' 
037334 012605 MOV (SP)+,R5 sPOP STACK INTO RS , 
03 012604 MOV (SP)+,R4 ::POP STACK INTO R4 ' 
037340 012603 MOV (SP)+,R3 3 STACK , 

037342 01260 MOV (SP)+,R2 re STACK INTO R2 

037344 012601 MOV (SP)+,R1 ‘+ +:POP STACK INTO R1 
037346 01 MOV (SP)+,RO ::POP STACK INTO RO ' 
037350 012737 037232 000024 _ MOV , AAPWRVEC 2 gSET UP THE POWER DOWN VECTOR , 
MOV #340, @4PWRVEC+2 ::PRIO:7 ' 


037356 012737 000340 000026 
037364 1 


1 TYPE :REPORT THE POWER FAILURE 
037366 037416 SPWRMG: .WORD  PWRMSG ;:POWER FAIL MESSAGE POINTER 
037370 012716 MOV = (PC) +, (SP) ;:RESTART AT START ! 
037372 0 SPWRAD: .WORD : ;RESTART ADDRESS 
037374 042766 000020 000002 IC  #20,2¢SP) 3CLEAR "'T'’ BIT | 
037402 005037 001346 CLR = STBIT ::CLEAR THE ‘'T’' BIT FLAG 
037406 .-000002 RT! | 
037410 000000 SILLUP: HALT ;THE POWER UP SEQUENCE WAS STARTED « 
037412 000776 BR .-2 :3 BEFORE THE POWER DOWN WAS COMPLETE 
037414 000000 SSAVR6 


4 : 0 THE SP HERE. 
3329 037416 012 015 040 PWRMSG: it <12><15>? POWER FAILURE - RESTARTING ?<12><15> 
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ERROR MESSAGES 













3336 -SBTTL ERROR MESSAGES 
3355 037 125 116 105 EMI: -ASCIZ /UNEXPECTED CPU TRAP TO LOC. 004/ 
3354 037520 125 116 105 me: -ASCIZ /UNEXPECTED , T. TRAP TO LOC. 250/ L 
3355 037567 120 122 111 EMS: , .ASCIZ /PRIORITY BITS SET WRONG IN PSW/ L 
3356 037626 115 117 104 EM4: -ASCIZ /MODE BITS SET WRONG IN PSW/ ale 
3357 037661 104 125 107 EMS: -ASCIZ /DUAL ADDRESSING BETWEEN HI&LO BYTES OF PSW/ cr 
3358 0 113 105 122 EM6: -ASCIZ /KERNEL R6 CHANGED BY WRITING SUPERVISOR OR USER R6/ ale 
3359 040017 101 040 115 ~EM?: -ASCIZ /A MEMORY MGMT. REG. TIMED 
3360 040055 123 125 115 €M10: .ASCIZ /SUMMARY OF ° . REG. TIMEOUTS/ Me 
3361 040121 115 105 115 EM11: .ASCIZ /MEM. MGMT. . WOULD NOT CLEAR/ Mr 
3 040161 115 105 115 EM12: .ASCIZ /MEM. MGMT. REG. BITS NOT SET CORRECTLY/ M 
336 30 123 122 060 EM135: .ASCIZ /SRO EFFECTED BY WRITE TO PSW/ ro 
3364 040265 115 115 122 EM14:  .ASCIZ /MAR1 DID NOT TRACK PROPERLY/ 
3365 040521 115 115 122 EM15: .ASCIZ /MARS IS HOLDI G 
3366 040 104 125 101 EM16: .ASCIZ /DUAL ADDRESSING BETWEEN PAR-PDR GROUPS/ 
3367 040427 102 101 104 EM17: .ASCIZ /BAD RELOCATION,ON STORING DATA 18-BIT MAPPING/ 0: 
3368 040505 120 110 131 EM20: .ASCIZ /PHYS. ADDR. FORMED WRONG IN RELOCATE MODE/ P 
3369 040557 123 122 062 EM21: .ASCIZ /SR2 NOT TRACKING CORRECTLY/ P' 
3370 040612 127 122 117 EM22: .ASCIZ /WRONG PDR'S REFERENCED WHILE IN RELOCATE MODE/ P' 
a 040670 120 101 122 EM23:  .ASCIZ /PAR OR PDR CHANGED BY A RESET/ P' 
ie: 040726 115 101 111 EM24:  .ASCIZ /MAINT. MODE (SRO <8>) NOT DISABLED BY A RESET/ P' 
3375 041004 104 101 124 EM25:  .ASCIZ /DATA_ INCORRECT AFTER A MAINT. MODE WRITE/ P 
3374 041055 123 117 125 EM26: .ASCIZ /SOURCE RELOCATED IN MAINT. MODE/ P 
3375 041115 123 122 062 EM27: .ASCIZ /SR2 DID NOT LOCK UP CORRECT VIRTUAL ADDRESS/ 7 
3376 041171 106 117 114 EM30: .ASCIZ /FOLLOWING PAR-PDR WILL NOT ZERO/ 
3377 041231 123 125 115 EM31: .ASCIZ ING E S/ 
3378 041 $e 123 125 115 EMS2: .ASCIZ / C PATTERN FAILURES/ P 
3379 041335 105 122 122 EM33:  .ASCIZ /ERROR IN BYTE ADDRESSING OF PAR-PDR/ P 
3380 041401 124 110 105 EM34: .ASCIZ /THE FOLLOWING ARE DUAL ADDRESSING ERRORS FOR PAR'S~PDR‘'S/ e 
3381 041472 124 110 105 €M36: .ASCIZ /THE FOLLOWING ARE COUNT PATTERN ERRORS FOR PAR*S~PDR‘S/ P 
teat 041561 1117 114 114 EM460: .ASCIZ /ILLEGAL (MODE 10) STACK POINTER NOT MAPPED TO USER/ P 
041644 061 070 055 EM41: .ASCIZ IT MAPPING POSSIBLE HOLE IN MAIN MEMORY FROM/ P 
3384 041725 106 101 125 EM42: .ASCIZ Y PROPAGATION 18-BIT MAPPING/ P 
3385 041775 061 070 055 EM435: .ASCIZ NG POSSIBLE HOLE AT TOP OF MEMORY/ P 
3386 042053 116 117 040 EM44:  .ASCIZ HRU ERRVEC,.AT 18-BIT ADDR. 760000/ P 
3387 04 168 104 111 104 EM45: .ASCIZ GET WRAP AROUND TO ADDRESS ZERO/ P 
3388 042175 116 117 040 EM46: .ASCIZ /NO TRAP THRU ERRVEC, ON NON-EXISTANT ADDR./ P 
3389 Bes 50 120 122 -105 EM47: .ASCIZ /PREMATURE END OF MEMORY FOUND/ P 
5390 04 062 062 055 EMS5O: .ASCIZ /22-BIT MAPPING POSSIBLE HOLE IN MAIN MEMORY FROM/ P 
3391 042367 102 101 , 104 EM51:  .ASCIZ /BAD RELOCATION, CARRY PROPAGATION 22-BIT MAPPING/ P P 
3392 042447 062 062 - O55 EMS2: .ASCIZ /22-B1T MAPPING POSSIBLE HOLE AT TOP OF MEMORY/ Pp 
3393 042525 104 111 104 EM53:  .ASCIZ /DID NOT GET UNIBUS ADDRESS/ Pp 
042560 127 055 102 EM54: .ASCIZ /W-BIT DID NOT GET SET IN PDR/ P 
3395 042615 127 055 102 EM55: .ASCIZ /W-BIT SET IN MORE THAN 
042654 127 055 102 EMS6: CIZ /W-BIT NOT CLEARED BY WRITING TO PDR/ 
3397 042720 127 055 102 EMS7: ASCIZ /W-BIT GOT SET DURING ' 
3398 042765 116 117 040 EM60: ASCIZ /NO APT SPECIAL HARDWARE FOUND/ 


DDmn Do 
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-SBTTL DATA HEADERS 


3399 
3400 eet 117 114 104 DHi: eASCIZ /OLD PC OLD PSW R6 WAS CPUERR TESTNO ERRORPC/ 
3401 043105 117 114 106 DH2: -ASCIZ /OLD PC OLD PSW R6 WAS SRO SR1 SR2 TESTNO ERRORPC/ 
is Ses igi BASES OIE, Hg ae Or’ 
a an an a iam SS ar a Mere 
04 122 105 107 DHT ASCII /REGISTR READ paps re has Scale 
07 04 101 104 104 -ASCIZ /ADDRESS (OCTAL) 5432109876543210 TESTNO ERRORPC/ 
3408 043512 122 105 107 DH1i2: .ASCII /REGISTR WROTE AD READ- (BINARY) /<CRLF> 
3409 en ot 3 101 104 104 -ASCIZ /ADDRESS (OCTAL) (OCTAL) 5452109876543210 TESTNO ERRORPC/ 
3410 043652 122 105 101 DH13: .ASCIZ /READ TEST ERRORPC/ 
3411 04370 105 130 120 DHi4: .ASCIZ /EXPECTD (MARI) TESTNO ERRORPC/ 
aig 04374 114 117 101 DH15 -ASCIZ /LOADED (MARS) TESTNO ERRORPC/ 
34135 044002 1117 116 104 DH16 ASCII /INDEX INDEX PAR-PDR/<CRLF> 
3414 044032 105 130 120 -ASCIZ /EXPECTD RECEIVD ADDRREAD TESTNO ERRORPC/ 
3415 044103 126 1117 122 DH17: .ASCIZ /VIR ADDR KIPAR4 GDDATA BADDATA TESTNO ERRORPC/ 
3416 044164 120 110 131 DH20: .ASCII /PHYSICL PAR 4 | PAR 5/<CRLF> 
3417 oes 101 104 104 eASCIZ /ADDRESS VBA_ ~ VBA PAR 4 PAR 5S  PSW TESTNO ERRORPC/ 
3418 0443512 123 122 062 DH21: .ASCIZ /SR2 WAS EXPECTD TESTNO ERRORPC/ 
3419 044352 120 110 131 DH22: .ASCII /PHYSICL PAR 4/<CRLF> 
Sasa ee oe, A ee es SS ewe rN sme ewes 
soe SR BY CAE RRS Bilhe ISS SSSR coms 
334 044610 114 117 101 -ASCIZ /LOADED LOADED ENABLED ENABLED TESTNO M#ERRORS/ 
3425 044667 101 104 104 DH32:  .ASCIZ /ADDROR ADDRAND PATRNOR PATRNAD DATAOR DATAAND TESTNO #ERRORS/ 
hae i Be: AE ames aepkegg ten> team Deore 
3428 045057 101 104 104 DH36: .ASCIZ /ADDRESS DATARED PATTERN COUNT TESTNO/ 
Meas ie i i Dae A eet mone Comrescens> 
3431 045164 123 124 101 DH41: .ASCIZ /STARTBK FINISHBK TESTNO ERRORPC/ 
ti 045225 120 101 124 DH42: .ASCII /PATTERN DATA SS/<CRLF > 
3433 045255 114 117 101 -ASCIZ /LOADED FETCHED INTENDED TESTNO ERRORPC/ 
ate 045327 123 124 101 DH43: .ASCIZ /STARTBK TNO €E C/ 
Se Ser RL BS EEE Aelbg fea cee 
3437 08456 113 1117 120 DH47: .ASCIZ /KIPAR4 LASTBLOCK TESTNO ERRORPC/ 
3438 045502 120 104 122 DH54: «.ASCII /PDR VIRTUAL/<CRLF> 
3439 045522 124 105 123 -ASCIZ /TESTED ADDRESS TESTNO ERRORPC/ 
re 045562 120 104 122 DH55: .ASCII /PDR IN PDR VIRTUAL/<CRLF> 
1 045012 105 122 122 -ASCIZ /ERROR TESTED ADDRESS TESTNO ERRORPC/ 
$ 045662 120 104 122 DH56: .ASCIZ /PDR TESTNO ERRORPC/ 
045712 120 104 122 DH57: «.ASCIZ /PDR WAS EXPECTD TESTNO ERRORPC/ 
045752 105 122 122 DH60 eASCIZ /ERRORPC/ 
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3446 .SBTTL DATA TABLES 
3447 045762 001260 001262 001256 DT1: _.WORD TRAPPC, TRAPPS,WASR6. CPUERR, TESTNO, SERRPC,0 
3448 046000 001 001 001256 DT2:  #_.WORD TRAPPC. TRAPPS.WASR6,WASSRO,WASSR] .WASSR2. TESTNO, SERRPC 0 
3449 046082 001162 001164 001254 DT3:  #$.WORD $REGO,$REG1,TESTNO SERRPC.O 
3450 0011 001254 001116 DT7: “WORD $REGO, TESTNO, SERRPC, 
3451 046044 001 001316 001274 DT10: WORD ADRAND TONUM, TESTNO, SERRPC , 0 
3459 001162 001164 001164 DT11: .WORD $REGO,$REG1,$REG1.TESTNO, SERRPC,O 
345 946074 001162 001164 001166 DT12:  .WORD SREGO. SREG! » SREGC SREG2, TESTNO, $ERRPC 0 
3454 046112 001170 001164 001254 DT14:  .WORD $REG3.$REG1.TESTNO,SERRPC, 
3455 046124 001166 001164 001254 DT15: WORD SRE G2. 1. TESTNO, SERRPC 0 
3456 046136 001162 001164 001166 DT16:  .WORD * $REG1 .$REG2, TESTNO, $ERRPC 0 
3457 046152 001162 172350 001164 DT17:  .WORD SREGO.KIPAR4. SREGI SREG2. TESTNO, SERRPC ,0 
3458 046170 001 001276 300 DT20: :WORD PRALO.VIRT1.VIRT2,$REG4,$REG5,$TMPO, TESTNO,SERRPC 0 
3459 046212 001270 001164 001254 DT21: .WORD WwWASSR2,$REGi,TESTNO, .0 
3460 046226 001302 001276 001172 DT22: .WORD PBALO,VIRT1,$REG4,WASSRO,WASSR2,$TMPO, TESTNO, SERRPC,0 
3461 001254 001116 D724: .WORD TESTNO 
$462 046254 001164 001166 001254 DT25: WORD $REG1,$REG2,TESTNO, SERRPC.0 

001270 001172 001254 DIe? “ WORD SREG4, TESTNO SERRPC 0 
3464 001162 001166 001254 DT “WORD $REGO,$REG2,TESTNO,ERRCNT 0 
3465 12 001316 001320 001 DT31: .WORD ADDROR,ADRAND, DATAOR, DATAND,TESTNO,ERRCNT,0 
3466 001316 001320 001312 DT3 "WORD ADDROR. ADRAND.PATTOR.PATAND .DATAOR.DATAND. TESTNO, ERRCNT,O 
3467 52 001162 001166 001164 DT3 “WORD  $REGO,$REG2,$REG1, TESTNO, SERRPC 0 
3468 001162 001164 001254 DT35: .WORD $REGO.$REG1.TESTNO,O 
3469 046376 001162 001166 001172 DT37: .WORD *$REG2. $REG4, $REG1, TESTNO,0 
3470 046412 001200 001202 001254 DT41:  .WORD STP. STAPG. TESTNO. SERRPC -0 
3471 046424 001166 001170 001162 DT42: .WORD é SREGO, TESTNO, SERRPC,0 
3472 046440 001200 001254 001116 DT43: .WORD $TMP1.TESTNO,SERRPC.O 
3473 046450 001164 001 001116 D145:  .WORD $REG1.TESTNO.$ERRPC. 
3474 046460 172350 003022 001254 DT47: WORD KIPAR4.$LSTBK,TESTNO,SERRPC.0 
3475 046472 001174 170 001254 DT54:  .WORD 65, $REG3, TESTNO, SERRPC ,0 
3476 046504 001162 001174 001170 DT55: . WORD $REGO.$REG5.SREG3, TESTNO, SERRPC,O 
3477 046520 001174 001254 001116 DT56: .WORD $REGS.TESTNO,SERRPC,0 
3478 046530 001116 DT60: .WORD $ERRPC,O | 
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TABLE 
ABASE = 000000 BITOO = 000001 DH14 043702 DT45 046450 ERRTYP 033626 
ACDwi = 000000 B1T01 = 000002 DH15 043742 DT47 046460 ERRVEC= 000004 
ACDW2 = 000000 Bl re = 000004 DH16 044002 DT5S4 046472 F 4 
ACPUOP= 000000 BI1T03 = 000010 7 044103 D155 504 GTSWR = 104407 
ADDROR 001316 BIT04 = 000020 DH2 043103 DT56 046520 
ADDWO = 000000 BITOS = DH20 044164 DT60 046530 HOLFLG 001336 
ADDW1 = 000000 BIT06 = 000100 DH21 044312 DT? 046034 H = 
ADDW10= 000000 BITO7 = DH22 044352 002334 IBSAVE 033624 
ADDW11= 000000 BITO8 = 000400 DH24 044470 EMTVEC= 30 10 = 
ADDW' ¢ 000000 BITO9 = 001000 D 043202 037460 K 172360 
ADDW15= 000000 BIT1 = 000002 DH30 044510 EM10 0400 KDPAR1= 172362 
ADDW14= 000000 BI1T10 = 002000 D 044550 EM11 040121 KDPAR2= 172364 
ADDW15= 000000 BIT11 = DH32 044667 EM12 040161 KDPAR 2366 
ADDW2 = 000000 BIT12 = 010000 DH33 044767 EM13 040230 KDPAR4= 172370 
ADDW3 = 000000 BIT135 = 020000 045037 EM14 0402 KDPARS= 172372 
ADDWS = 000000 BIT14 = DH36 045057 EM15 040321 K = 172374 
ADDWS = 000000 BIT15 = 100000 DH40 045126 EM16 040 KDPAR7= 172376 
ADDW6 = 000000 BIT2 = DH41 045164 EM17 04 = 172320 
ADDW7 = 000000 BITS = 000010 DH42 045225 EM2 037520 KDPDR1= 172322 
ADDWB = 000000 BIT4 = 000020 DH43 045327 EM20 040505 KDPDR2= 172324 
ADDW9 = 000000 BITS = DH45 045357 EM21 040557 KDPDRS= 172326 
ADEVC1= 000000 BIT6 = 000100 DH46 045407 EM22 040612 = 172330 
ADEVM = 000000 BIT7 = DH47 045436 EM23 0670 KDPDRS= 172332 
ADRAND 001320 BIT8 = DH54 0455 EM24 040726 KDPDR6= 172334 
AENV = 000000 BIT9 = 001000 DH55 045562 EM25 1004 KDPDR7= 172336 
NVM = 000000 BPTVEC= 6 045 EM26 041055 KERSTK= 00 
AFATAL= 000000 CKSWR = 104410 DHS7 045712 EM2é7 041115 KIPARO= 172340 
AMADR1= 000000 002276 045752 EMS 037567 KIPARI= 172342 
AMADR2= 000000 CLRREG 002260 DH7 043242 EM30 041171 KIPAR2= 172344 
AMADR3= 000000 G 035337 DISPLA 001142 EM31 041231 KIPARS= 172 
= CNTRLC 035260 DISPRE 000174 EM32 041273 KIPAR4= 172350 
AMAMS1= 000000 C 33244 D = 177570 EM33 041335 KIPARS= 172352 
CPUERR= 177766 D 045762 E 041401 KIPAR6= 172354 
AMAMS3= 000000 CPUEXP 001334 DT10 6044 EM36 04147 KIPAR7= 172356 
= CR = 15 DT11 E 037626 K 
AMSGAD= 000000 CRLF = DT12 EM40 041561 KIPDR1= 172302 
AMSGLG= 000000 DATAND 001310 DT14 046112 EM41 041 KIPDR2= 304 
AMSGTY= 000000 DATAOR 1306 DT15 046124 EM42 041725 KIPDR3= 172306 
AMTYP1= 000000 DDISP = 177570 DT16 046136 EM43 041775 KIPDR4= 172310 
YP2= 000000 DF 1 04 DT17 046152 EM44 042053 KIPDRS= 172312 
AMTYPS= 000000 DF10 DT2 0 EM45 2126 KIPDR6= 172314 
AMTYP4= 000000 DF11 046565 DT20 046170 EM46 042175 KIPDR7= 172316 
APASS = 000000 DF12 046572 DT21 046212 EM47 042250 KSP = 
APRIOR= 000000 DF 16 DT22 046224 M 037661 F = 000012 
APTCSU= 000040 DF2 046541 DT24 046246 EM5O 042306 0204 
APTENV= 000001 DF 20 046606 DT25 046254 EM51 042367 MGMERR 003330 
APTSIZ= 000200 DF 24 046616 DT27 046266 EMS2 042447 MGMFLG 003332 
APTSPO= 000100 DF3 046551 DTS 046022 EM53 042525 MMRO = 177572 
APTTST 027224 DF 32 DT30 04 EM54 MART = 177574 
= DF 33 046626 DT31 046312 042615 MMR2 = 177576 
ATESTN= 000000 DF43 DT32 046330 EM56 042654 = 172516 
AUNIT = DF7 046555 DT33 046352 EMS7 042720 = 25 
= DH1 043023 D135 046366 E 037734 OLDPC 001326 
AVECT1= 000000 DH10 043272 D137 046376 EM60 042765 OLDPS 001350 
AVECT2= DH11 043372 D141 046412 M7 04 PARCOU 0024 
001324 DH12 043512 DT42 04642 ERRCNT 0013 PARTAB 001356 


BADPC 4s 22 
BITO = 000001 DH13 043652 D143 046440 ERROR = 104000 PATAND 0013514 
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PATRNS 027024 SIPAR7= 172256 TPVEC = 000064 UDPAR1= 177662 $CM4 = 000006 
PATTOR 001312 SIPDRO= 172200 TRAPPC 001260 UDPAR2= 1 SCNTLC 001350 
PBAH I 1 SIPDR1I= 172202 TRAPPS 001262 AR5S= SCNTILG 035231 
O 001302 oie. 172204 = 00003 UDPAR4= 177670 SCNTLU 035224 
PCPUER 001332 SIPDR35= 172206 TRIVEC= 000014 UDPARS= 177672 CORE 002676 
PFECDF 0342 SIPDR4= 172210 T1 020564 = 177674 $C 001252 
EC 034220 SIPDRS= 172212 TST10 §©021422 UDPAR7= 177676 SCRLF 001221 
PFECDT 034250 SIPDR6= 172214 TST11 021440 UDPDRO= 177620 $CROUT 002726 
PFECEM 0341 SIPDR7= 172216 — TST12 021456 UDPDR1= 177622 036720 
PFECWS 034150 SRO = 177572 TST15 = 021474 UDPDR2= 177624 037024 
PIRQ = 17777 SR1 9 = 177574 TST14 021512 UDPDR35= 177626 SDEVCT O012 
PIRQVE= 000240 SR2 = 177576 TST15 021654 UDPDR4= 177 032752 
PRO = SRS = 172516 TST16 §=©021714 UDPDR5= 177632 SDTBL 03671 
PR1 = 000040 SSP =%000006 TST17 §=©022320 6= 177634 SENDAD 032742 
PR2 = 0001 STACK = 001100 TST2 020642 = 177636 SENDCT 032570 
PRS = 000140 START . 020000 TST20 022442 UIPARO= 177640 SENULL 033014 
PRG = 000 STKLMT= 177774 TST21 02264 UIPAR1= 177642 NV 001244 
PRS = 000240 SUPSTK= 000700 TST22 023036 UIPAR2= 177644 SENVM 3 001245 
PR6 = 0003500 SWR 001140 TST23 023234 UIPAR3S= 177646 SEOP 03254 
PR7 = 000340 SWREG 000176 TST24 023432 UIPARS= 177650 SEOPCT 032562 
PS = 177776 SWwO = 000001 TST25 02 UIPARS= 177652 SERFLG 00110 
PSW == 177776 SwOO = 000001 TST26 024026 UIPAR6= 177654 SERMAX 00111 
PWRMSG 037416 SwO1 = 000002 TST27 024140 UIPAR7= 177656 SERROR 033246 
PWRVEC= 000024 SWO2 = 000004. TST3 020726 UIPDRO= 177 SERRPC 001116 
RDCHR = 104411 SWOS = 000010 TST3O0 6024252 UIPDRi= 177602 SERRTB 001372 
RDLIN = 104412 SwO4 = 000020 TST31 ©6024 UIPDR2= 177 SERTTL 001112 
READON 001342 SwOS = 000040 TST32 024502 Ul = 177 SESCAP 001212 
RESREG= 104414 SWwO6 = 000100 TST33 024620 UIPDR4= 177610 TABL 001244 
RESVEC= 000010 SwO7 = 000200 TST34 024736 UIPDR5= 177612 SETEND 001254 
RMIREG= 177770 SwO8 = 000400 TST35 025042 UIPDR6= 177614 SFATAL 001226 
R6 = SwO9 = 001000 025146 UIPDR7= 177616 SFFLG 0 
R7 ~ 7 SW1_ = 000002 TST37 =—6 025252 USESTK= SFILLC 001156 
SAVREG= 104415 SW10 = 002000 021050 USP = SFILLS 001155 
SCOPE = SW11 = 004000 TST40 025356 VIRT1 001276 001120 
SDPARO= 172260 SWi2 = 010000 TST41 025462 VIRT2 1300 SGDDAT 001124 
SDPAR1= 172262 SW15 = 020000 TST42 025566 001256 $GET42 032714 
SDP ‘s 172264 SW14 = 040000 *‘, TST43 025662 WASSRO 001264 0343 
172266 SW15 = 100@00 “ TST44 026210 WASSR1 = 
SDPAR4= 172270 SWw2 = 000004 TST45 026544 WASSR2 001270 SHIBTS 000 
SDPARS= 172272 SWS = 000010 TST46 026602 WBIT = 0001 SICNT 001104 
SDPARG= 172274 SW4 = 000020 TST47 §=—027276 SAPTHD SILLUP 037410 
SDPAR7= 172276 SW5 = 0 TST5 Oglate SATYC 035760 SINTAG 0011 
SDPDRO= 172220 S = 000100 TST50 030136 SATY1 035734 SITEMB 001114 
SDPDR1= 172222 SW7 = 000 TST51 031020 SATYS 035742 SKTNEX 002670 
a. 172224 SWB = 00 TST52 031634 $ATY4 035752 SKTOUT 002 
SDPDR35= 1722 SW9 = TST53 032030 TOB 001134 $KT11 002512 
SDPDR4= 172 TBIT = 20 TST54 032256 SBDADR 001122 F 001222 
SDPBRS= 172232 TBITPS 001272 TST5S § «032444 SBDDAT 001126 SLFLG 036177 
oe 1 Ste TBITVE= 14 TST6 021 SBELL 001214 SLOOP 0335010 
SDPDR7= 1 TESTNO 001254 TST7 021404 SBIN 036254 SLPADR 0011 
SIPARO= 172240 TIME 3232 TY = 104406 SCHARC 035730 PERR 001110 
SIPARI= 172242 TIMFLG 3 TYPDS = 104405 SCKSWR 034264 $LSTAD 003020 
SIPAR2= 172244 TIMTST 003024 TYPE = 104401 $SCLR.T 032732 SLSTBK 003022 
SIPARS= 172246 TKVEC = 000060 TYPOC = 104402 SCMTAG 001100 SMAIL 001224 
SIPAR4= 172250 TOF F 002172 TYPON = 104404 $CM1 = 000006 206 
SIPARS= 172252 TON 002226 TYPOS = 104403 $CM2 = 000014 SMFLG 036176 
SIPAR6= 172254 TONUM =: 001274 UDPARO= 177660 $CM5 = 000006 SMNEW 035247 
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SQUES 001220 SSCOPE_ 033020 $1mp2 001202 STYPDS 036504 
SROCHR 054606 $SETUP= 000137 STMP3 001204 $TYPE 035370 
SRDLIN 034 $SIZE 002454 $TMP4 001206 SIYPEC 039602 
$RDSZ = 000010 $SIZEX 00273 STMPS 001210 STYPEX 035 
SREGAD 001160 STUP = 17 $TN = 000056 $TYPOC 036302 
$REGO 001162 $SVLAD 033174 $1PB 00115 STYPON 036316 
$REG] 001164 VPC = 0002 STPFLG 00115 $TYPOS 036256 
SREG2 001166 $SWR = 173400 $TPS_ 001150 SUNIT 001236 
$REGS 001170 $SWREG 001246 STRAP 037144 SUNITM 000214 
$REG4 001172 $SWRMK= 000000 $TRAP2 037166 SUSWR 001250 
$REGS 001174 $TBIT 001 $TRP = 000015 $XOFF = 000023 
$RESRE 036766 STESTN 001230 $TRPAD 037200 KON = 900021 
$RTNAD 033012 $T 001146 $TSTM 000210 $XTSTR 033032 
$RTRN 03 $TKS 001144 STSTNM 001102 $$GET4= 
SSAVRE 036 $TMPO 001176 $TTYIN 035214 SOFILL 036501 
$SAVR6 037414 $TMP1 001200 STYPBN 036202 .$X = 000204 

000000 001 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 59464 WORDS ( 233 PAGES) 

DYNAMIC MEMORY: 20034 WORDS ( 77 PAGES) . 


ELAPSED TIME: 00:06:06 
CKKTAB.BIN, CKKTAB/CR/~SP/NL : TOC=CKKTAB.MLB/ML , CKKTAB.P11 
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6-1276 
6-1276 
6-1276 
6-1276 
6-1276 
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6-1276 
6-1276 
6-1276 
6-1276 
6-1276 
6-1276 
6-1276 
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16-1276 
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16-1276 


16-1276 
16-1276 
16-1276 


16-1276 


#92-3335 


16-1276 
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QUENCE 137 
CREF v01 
*27-1655 *28-1677 *29-1701 *29-1720 
27-1656 28-1678 *29-1700 *29-1722 
92-3355 #92-3535 
#92-3335 
#75-2742 


* 39-2009 


* 39-2008 


* 39-2029 102-3451 


* 39-2031 102-3451 
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46-2134 


15-1210 


15-1211 
33-1853 
71-2588 


86-3219 
51-2333 
60-2390 


= 
16-1276 
18-1363 


QUENCE 
CREF vO? 

«77-3024 

85-3217 85-3217 
85-3217 

85-3217 86-3219 
86-3219 

85-3217 

48-2195 

77-2911 77-2961 
75-2745 

71-2590 72-2628 
86-3219 #98-334 
§2-2338 53-2343 
61-2395 62-2400 
51-2333 52-2338 
56-2358 56-2358 
#90-3318 
#85-3217 *86-3219 
30-1750 *30-1757 
30-1754 *76-2831 
91-3333 

33-1839 91-3333 
101-3423 101-3429 
27-1658 8-1682 
*27-1657  *28-1681 
33-1838 

20-1456 22-1556 


a t 


I 11 


86-3219 86-3219 
72-2645 74-2703 
64-2348 55-2353 
52-2338 53-2343 
86-3219 88-3313 
*33-1852 33-1855 
*76-2846  *76-2856 
91-3333 101-3404 
101-3432 101-3438 
102-3465 102-3466 
102-3465 102-3466 
#103-3480 


22-1574 


76-2799 


56-2358 
53-2343 


76-2871 
*76~2865 


101-3406 
101-3440 


77-2939 


57-2375 
54-2548 


*76~2891 


58-2380 
54-2348 


77-3008 


*77-2967 *77-2982 


101-3408 


101-3413 
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CKKTAB CREATED BY MACRO ON 25-APR-81 AT —_< PAGE 3 


NCE 139 
SYMBOL CROSS REFERENCE CREF  vO01 
SYMBOL VALUE REFERENCES 
DF 10 18-1326  #103-3484 
OF 11 046565 18-1331 19-1395  #103-3485 
DF12 0465 18-1 #103-3486 
OF 16 #103-3487 
DF 2 046541 17-12 18-1369 19-1413 20-1481 = 20-1488 = 21-1517 21-1523 21-1530 = 21-1536 
21-1543  #103-3481 
DF 046606 18-1376 19-1388 #103-3488 
DF 24 046616 19-1401 21-1499 #103-3489 
OF 046551 17-1294 17-1300 17-1306 «= 17-1312, s«18-1350. «=: 18-1356 =: 19-1381 191407: 19-1419 
; 19-1425 19-1432 22-1549 22-1568 #103-3482 
£32 046620 20-1437  #103-34 
DF 3 7 20-1443  #103-3491 
OF 43 21-1493  #103-3492 
OF? 046555 18-1317 181344. 20-1468 )3=— 20-1475. 21-1505.) 21-1511 22-1562 #103-3483 
OH1 043023 17-1280 #101~3400 
DHi0 043272 18-1321  #101-3404 a 
DH11 043372 18-1528 19-1392, #101-3406 
DH12 043512 18-1335 #101-3408 
DH13 043652 18-1342  #101-3410 
DH14 043702 18-1348  #101-3411 
DH15 043742 18-1354  #101-341 pe 
DH16 044002 18-1360 #101-341 
DH17 04410 18-1367 #101-3415 
OH2 043103 17-12 19-1411 #101-3401 
044164 18-1373 #101-3416 
1 044312 19-1379 19-1 #101-3418 
2 044352 19-1385  #101-3419 
4 70 19-1399 21-1497 #1013421 
DH 043202 12-1292 17-1298, 17-1304 17-1310 19-1405 #101-3402 
DH30 044510 19-1423  #101-3422 
DH31 550 19-1429 #101-3423 
DH3¢ ? 20-1435 #101-3425 
OH3 044767 20-1441  #101-3426 
DH34 045037 20-1447  #101-3427 
DH36 045057 20-1460  #101-3428 
DH40 045126 20-1472 #101-3429 
DH41 045164 20-1479 21-1521. #101-3431 
DH4 045225 20-1485 21-1527 -1540 #101-3432 
DH4 045327 21-1491 21-1534 #101-3434 
DH45 045357 21-1503  #101-3435 
DH46 045407 21-1509  #101-3436 
DH47 0454 21-1515 #1013437 
DHS4 045 22-1546  #101-3438 
DH55 5 22-1553 #101-3440 
DH56 04 22-1560  #101-3442 
DHS 045712 22-1566  #101-3443 
DHGO 045752 22-1572 #101-3444 
045242 18-1315 #101-3403 
DISPLA 00114 #16-1276 *33-1838 «9 *33-1838 © 85-3217 86-3219 
DISPRE 000174 #15-1273 33-1838 _—C. 
DSwR  =_:177570 #15-1199 16-1276 33-1838 
DT1 045762 17-1281  #102-3447 
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CKKTAB «CREATED BY MACRO ON 23-APR-81 AT 13:35  _—~PAGE 
SEQUENCE 140 
SYMBOL CROSS REFERENCE CREF  vO1 
SYMBOL VALUE REF ERENCES 
DTIC 046044 18-1 #102-3451 | 
DT11 046060 18-13 19-1394  #102-3452 ) ! 
DT12 046074 18-1337 #102-3453 
DT14 046112 18-1349  #102-3454 
DT15 046124 18-1355 22-1567. #102=3455 
DT16 0461 18-1 #1023456 
DT17 046152 18-1 #102-3457 
DT2 046000 17-1287 19-1412 #102-3448 
D750 046170 18-1375 #102-3458 
D121 046212 19-1380  #102-3459 
DT32 046224 19-1387  #102-3460 
D134 66 19-1400 21-1498 #102-3461 | 
DT95 046254 19-1406  #102-3462 | 
D197 19-1618 #1023463 
DT 046022 17-1293 17-1299 -—«-17-1305.—Ss«17=1311--#102-3449 | 
DT30 19-1424 #1023464 
DT31 046312 19-1631 #1023465 
D132 046350 20-1436 #102-3466 | 
DT3 046352 20-1442 4102-3467 - 
DT35 —-- ©0046 366 50-1455 #102-3468 
D137 046376 50-1467 #102-3469 
DT41 046412 50-1480 21-1522 #102=3470 
D142 046424 50-1487 31-15 27-1542  #102-3471 
DT% 046440 51-1492 21-1535 #102-3472 
DT45 046450 51-1504  #102-3473 
DT47 51-1516 #102-3676 
DTS4 046472 52-1548  #102-3475 
DT55 046504 53-1555 #102-3476 
DT56 046520 55-1561 #102-3477 
DT60 530 55-1573 #102-3478 
DT? 046034 18-1316 18-1343 20-1474 «=. 21-1510 #102=3450 
334, #27-1653 «451-2333 52-2338 «© §3-2343 «54-2348 «55-2353 © «- 56-2358 

EMTVEC = 000030 #15-1199 33-1838  *33-1838 
EM1 037460 17-1279 #100-3353 
EM10 5 18-1320 #100-3 
EM11 040121 18-1327 #1003361 
eM 2 040161 18-1334  #100- 
EMI 040230 18-1341  #100-3 
EM14 5 18-1347  #100-3364 
EM1S 040321 . 18-1353 #100-3365 
EM16 360 18-1359  #100-3366 
eal O39856 aes may ae 
omo0 15-1953 Mloo-3 
EM21 040557 19-1378  #100-3369 
EMz2 040612 19-1384  #100-3370 
EMS 040670 19-1391  #100-3371 

040726 19-1398  #100-3372 
EMes 041004 19-1404  #100-337% 
E 041055 19-1410  #100-3374 
EMO? 041115 19-1416  #100-3375 
E 037567 17-1291  #100-3355 
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CKKTAB CREATED BY MACRO ON 23-APR-81 AT 13:35 PAGE 5 
SEQUENCE 141 

SYMBOL CROSS REFERENCE CREF  vO01 

SYMBOL VALUE REFERENCES 

EM30 041171 19-1422 #100-3376 

EM31 041231 19-1428 #100-3377 

EMS 041 20-14 #100-3378 

EMS 041335 20-1440 #100-33 

EM34 041401 20-1446  #100-3380 

EM36 041472 20-1459  #100-3381 

EMG 037626 17-1297 #100-3356 

EM4O 041561 20-1471 #100-3382 

EM41 041644 20-1478  #100-3383 

EMG 041725 20-1484 #100-3 

EMG 041 21-1490  #100-3385 

EMG, 042053 21-1496  #100-3386 : 

EMS 0421 6 21-1502 #100-3387 

EM46 042175 1-1508  #100- 

EM4G7 042250 21-1514 #100-3389 

EMS 037661 17-1303 #100-3357 

EM50 042306 21-1520 #100-3390 

—M51 042367 21-1526 #100-3391 

EM52 042447 21-1533 #100-3392 

EM53 042525 21-1539 #100-3393 

EM54 25 22-1545 #100-3394 

EMSS 042615 22-1552 #100-3395 

EMS6 042654 22-1559  #100-3396 

EM57 0427 22-1565 #100-3397 

i Me, 37 17-1309  #100-3358 

EM60 042765 22-1571 100-3398 ° 

EM7 040017 18-1314 #100-3359 

ERRCNT 001322 #16-1276 3=«.-« 51-2333 s-551-23330( §52=2338 «=—s_—s«s§2=2338 )«=—s_s«s53-23430=S_s« 53-2343 3s 54-2348 4=—s_—« 54-2348 
55-2353 3=«._« §5=2353 0s «56-2358 49 «456-2358 4 3=—s._—s«dS 77-2375) 3=Sss« 57-2375 3=s-_s«d58- 2380 3=.—sd5 88-2380 3=s—s«49- 2385 
59-2385 | 2390 60-2390 61-2395 61-2395 62-2400 62-24 102-3464 102-3465 

ERROR = 104000 #15-1199 7-1661 27-1663 28-1685 28-1687 30-1756 $31-1786 35-1875 1898 
37-1924 37-1937 -1966 1980 39-2020 39-2024 2042 2046 41-2053 
41-2057 ~2064 2-2068 $$ 43-2075 3-2079 44-2086 44-2090 45-2097 45-2101 
46-21 6-2129 2141 66-2150 47-2173 48-2201 48-2206 48-2215 48-2225 
48-22 48-2249 48-2261 48-2274 2292 49-2299 9-2308 2313. §1-2333 
51-2333 52-23 §2-2338 23-3345 53-234 54-2348 54-2348 55-2353 55-2353 
56-2358 56-2358 57-2375 380 59-2385 60-2390 61-2395 -2400 241 
63-2412 64-2417 -2417 65-2422 65-2422 66-2427 66-2427 67-2432 67-2432 
68-243 68-2437 69-2466 70-2503 0-2514 70-2525 70-25 0-2547 2558 
71-2593 - 72-2652 474-2709 «= 75-2751 76-2 76-2804 76-2813 
76-2852 76-2864 76-2878 6-2888 -29 77-2944 77-2955 77-2974 - 
77- -3015 . 77-3025 - 78-3156 80-3172 80-3172 80-3172 #81-3178 
81-31 81-3178 82-3185 82-3185 82-3185 83-3208 

ERRTYP 033626 86-3219  #88-3221 

ERRVEC = #15-1199 28-1689 -1 *28-1689  %28-1689  *28-1689  *28-1689  *28-1689  *28-1689 
*28-1 *28-1689 33-1838' +*33-1838 *3 ~1833 *33-1842 33-1843 *75-2747 *76-2776 
*76-2827 77-2916 %77-2962 *83-3202 *B3-3212 85-3217 85-3217 *85-3217 +*85-3217 

FORMPA 003426 #32-1 -3095 78-3152 

GNS = seers 15-1273 15-1273 33-1839 84-3215 84-3215 98-3347 98-3347 98-3347 98-3347 
98-3347 ~3347 -3347 98-3347 98-3347 98-3347 98-3347 98-3347 98-3347 
98-3347 98-3347 98-3347 98-3347 98-3347 98-3347 98-3347 98-3547 98-3347 





CKKTAB CREATED BY MACRO ON 23-APR-81 AT 13:35 PAGE 6 
SEQUENCE 142 

SYMBOL CROSS REFERENCE CREF vO1 

SYMBOL VALUE he 
a) 7 98-3347 

GTSWR = 104407 33-1839 90-332 #98-3347 

HDWF LA 001340 #16-1276 = * 75-274 «75-2753 76-2771 fe-scas 76-2824 77-2912 77-2922 

HOLFLG 001336 #16-1276 8 *76-277 76-2790 = *76-2795 76-2811 76-2882 *76-2885 *76-2890 *77-2917 
77-29 gh 3 77-2953 77-3019 3=*77=3022 = *77-3027 

HT = 000011 #15-1199 91-3333 91-3333 

IBSAVE 033624 *86-3219 86-3219 *86-3219  *86-3219 86-3219 86-3219 86-3219 86-3219  #86-3219 

LOTVEC = 000020 #15~-1199 33-1838  *35-1838 

KDPARO = 172360 #15-1200 

KDPAR1 = 172362 #15-1200 

ce = 172364 #15~-1200 

KDPARS = 172366 #15-1200 

KDPARS = 172370 #15-1200 

KDPARS = 172372 #15-1200 

KDPAR6 = 172574 #15-1200 

KDPAR7? = 172376 #15-1200 51-2333 51-2333 57-2375 59-2385 

KDPDRO = 172320 #15-1 

KDPDR1 = 172322 #15-1200 

KDPDR2 = 172324 #15-1200 

KDPDRS = \?e3e6 #15-1200 

KDPDR4 = 1723 #15-1 

KDPDRS = 172332 #15-1200 

KDPDR6 = 172334 #15-1200 

KDPDR7 = 172336 #15-1 54-2348 aot: 60-2390 

KERSTK = 001100 #15-1212 38-1956 38-1962 38-1 71-2597 83-3204 

IPARO = 172340 #15-1 28-1689 32-1808 40-2041 51-2333 51-2333 51-2333 51-2335 51-2333 
57-2375 59-2385 63-2412 63-2412 63-2412 63-2412 63-2412 70-2481 70-2509 

KIPAR1 = 172342 #15-1200 *74-2690 

KIPAR2 = 172344 #15-1200 *74-2691 

KIPARS = 172346 #15-1200 *72-2619 *74-2692 80-3172 

KIPAR4 = 172350 #15-1200 *72-2620 74-2699 *76-2777 *76-2806 *76-2829 *76-2847 *76-2858  *76-2859 
76-2874 *77-2918 *77-2946 77-2949 *77=2965 = 77-2983 = *77-2994 = 77-2995 77-3011 
*78-3056 *78-3115 *78-3136 102-3457 102-3474 

KIPARS = 172352 #15-1200  *76-2778 76-2785 76-2792 *76-2807 76-2809 76-2884 *77-2919 77-2924 
77-2932 39 *77=2947 77-2951 _ *77~2964 77-3021 *78-3057 *78-3116 *78-3137 

KIPARG = 172354 #15-1200 ; 

KIPAR7 = 172356 #15-1200 28-1689 *72-2621 *74-2693 

KIPDRO = 172 #15-1 41-2052 54-2348 54-2348 54-2348 54-2348 54-2348 60-2390 66-2427 
*66-2427 66-2427 66-2427 66-2427 70-2480 70-2498 71-2578 *71-2586 74-2687 
80-3172 80-3172 80-31 

KIPDR1 = 172302 #15-1200 

KIPDR2 = 172304 #15-1200 

KI = 306 #15-1200 *72-2622 *72-2640 *83-3201 83-3205 

KIPOR4 = 172310 #15-1200 } *72-26235 = *78-3113 = * 78-3132 

KIPORS = 172312 #15-1200 *78-3114 *78-3135 

KIPDR6 = 172314 #15-1200 

KIPDR7 = 172316 #15-1 *72-2624 

KSP =%000006 #15-1207 *25-1622 +%*25-1626 27-1654 *28-1676 *29-1713 *30-1748 *30-1749 30-1751 
*30-1759 *30-1760 *31-1779 *31-1780 31-1781 *31-1788 *31-1789 *35-1841 *38-1956 
38-1962 -1965 *38-1972 +*39-2025 +*71-2597 *76-2869 +*76-2870 *76-2892 *76-2895 
*77-3006  *77-3007 = 77-3029 Ss «77-3030 = * 78-3146 = *78-3147 = 78-3161 = * 78-3162 3=— *8 35-5204 
*88-3222 +*88-3251 *88-3276 88-3278  *88-3279 *88-3283 *88-5284 *88-3 88-3292 





Oa@peo en 22 2 = 


I = 


ne a ie 


CKK TAB CREATED BY MACRO ON 23-APR~-81 AT 13:35 PAGE 7 
SEQUENCE 143 


SYMBOL CROSS REFERENCE CREF — VO1 
SYMBOL VALUE REF ERENCES 
588-3293 *88-3 "88-3297 88-3303 *88-3304 
LF = 000012 “W15-1199 —-91-3333 91-3333 
LOOP 020454 W35-1840 84-3215 
MME 330 28-1 31-1771 33-1844 = 71-2599 72-2639 = 78-3142 
MGMFLG 003332 W31-1772 *31-1787 «33-1848 
mmRO. = 177572 #15-1203 *33-1850 *38-1954  *48-2195 48-2208 *48-2216 §=— 48-2218 += 48-2228 = 48-2239 
4B-2254 48-2267 *48-2277 *74-2703 + *74-2706 += *76-2770 
MARI = 177574 #15-1204 48-2192 
MAR? = =:177576 #15~1205 
MARS = =: 172516 #15-1206 *33-1851 49-2287 *77-2911-*77-2961 + *77-3003 
MMVEC = 000250 #15-1200 *28-1689 *28-1689 *33-1844 *33-1845 71-2582 *71-2582 -*71-2583 —_*71-2599 
*71-2600 *72=2625 *72-2639 78-3085 *78-3142 
OLDPC = 001326 #16-1276 *27-1654 27-1664 + *28-1676 += 28-1688 += *76-2869 + *76-2876 += 76-2887 * 76-2889 
76-2893 *77-3006 . *77-3013 77-3024 + *77-3026 + — 77-3030 
OLDPS 001330 #16-1276 *76-2870 = 76-2892 *77-3007 = 77-3029 
PARCOU 002400 W28-1675 57-2375 58-2380 59-2385 © 60-2390 61-2395 62-2400 
PARTAB 001356 #16-1276 69-2456 69-2462 + 69-2465 
PATAND 00131 #16-1276 26-1 28-1680 102-3466 
PATRNS 027024 -2696 #75-2719 
PATTOR 001312 #16-1276 *26-1638 + *28-1679 +=: 102-3466 
PBAHI ==: 001304 #16-1276 — *32-1831 
PBALO =: 001302 #16-1276 *32-1822 -*32-1823 *32-1828 += 102-3458 102-3460 
PCPUER 001332 #16-1276 *30-1750 30-1754 + *76-2782 «= 76-2788 = *76-2832 = 76-2836 © *76-2857 = 76-2861 
"76-2871 76-2872 76-2880 *77-2926 77-2928 *77-2993 77-2997 *77-3008 77-3009 
PFECDF 034260 88-3309 488-3314 
034220 88-3309 #88-3311 
PFECDT 034250 88-3309  #88-331 
PFECEM 88-3309  #88-3310 
PFECWS 034150 88-3233  #88-3309 
PIRQ = 177772 #15-1199 
PIRQVE = 000240 #15-1199 
PRO = #15-1199 
PRI = 0 #15-1199 
PR = 000100 #15~1199 
PR = 000140 #15-1199 
PR4 = 000200 #15-1199 
PRS = 000240 #15-1199 
PR6 = =: 000 #15~-1199 
PR? —- =: 000340 #15-1199 : 
PS = 177776 #15-1199 15-1199 
PSw = (177776 #15-1199 23-1586 23-1588 += 32-1809 32-1813 «35-1870 35-1871 *36-1891 36-1892 
1893 *36-1897 *36-1905 *37-1915*37-1917 37-1918 += *37-1923 *37-1929 «37-1931 
37-1932 *37-1936 *38-1955  *38-1957  *38-1959 *38-1961 *38-1971 *38-1973 «38-1975 
"38-1977 *38-1981 *39-2003 #472168 §=— 47-2170 *47-2178 = *4B-2252 «48-2265 *48-2276 
*78-3053 78-3086 78-3107 «78-3117 78-3119 *78-3129- *78-3131 = «81-3177 *81-3179 
*82-3184  *82-3186 
PWRMSG 037416 99-3349  #99-3350 
= 000024 #15-1199 «33-1838 «33-1838 ~*99-3349 «99-3349 «99-3349 — *99-3349  #99-3349  #99-3349 
ROCHR = 104411 89-3315  #98-3347 
RDLIN = 104412 498-3347 
RE 001342 #16-1276 = 48-2229 48-2241 
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CKKTAB CREATED BY MACRO ON 23-APR-81 AT 13:35 PAGE 8 
SEQUENCE 144 

SYMBOL CROSS REFERENCE CREF vOl 

SVBOL VAS. REFE E 

RESREG = 104414 97-3 3347 

RESVEC = o90018 #15-1199 +*33-1 33-1838 *33-1838 

RMIREG = 1 #15-1216 2748 *76-2800 *76-2826 # *77-2940 

k6 =spoonee #15-1199 +*33-1838 +*33-1 33-1838 

R7 =%00000 #15-1199 

SAVREG = 106413 97-3345 #98-3347 

SCOPE = 000004 #15-1199 35-1866 36-1888 37-1913 38-1953 39-2002 40-2039 $1-3038 42-2061 
43-2072 44-2083 45-2094 46-2114 47-2167 48-2191 49-2286 Si- §2-2337 
$3-2342 54-2347 §5-2352 56-2357 57-2374 58-2379 59-2384 60-2389 ¢i- 394 
62-2399 63-2411 64-2416 65-2421 66-2426 67-2431 68-2436 69-2451 $378 
A + Th 72-2616 74-2674 76-2768 77-2908 78-3052 80-3171 81-3176 82-3183 
83-3197 84-3215 

SDPARO = 172260 #15-1200 

SDPAR1 = 176606 #15-1200 

sons = 172264 #15-1200 

SDPARS = 1 #15-1200 

SDPAR4 = 1 #15-1200 

SDPARS = 172272 #15-1200 

SDPAR6 = 172274 #15-1200 

SDPAR7 = 172276 #15-1200 52-2338 §2-2338 58-2380 

SDPDRO = 17 $39 #15-1200 

SDPDR1 = 1 2 #15~1200 

SDPDR2 = 172224 #15-1200 

SDPDRS5 = 1 #15-1200 

SDPDR4 = 1 #15-1200 

SDPDRS = 1 % #15-1200 

SDPDR6 = 1722 #15-1200 

SDPDR7 = 172236 #15-1200 55-2353 55-2353 61-2395 

SIPARO = 172240 #15~1200 32-1815 ~ 52-2338 52-2338 52-2338 52-2338 52-2338 58-2380 
64-2617 %64-2417 64-2417 64-2417 64-2417 70-2487 70-2531 78-3059 

SIPAR1 = 172242 #15-1200 

Stee = 172244 #15-1200 - 

SIP. = 172246 #15-1200 81-3178 

SIPAR4 = 172250 #15=-1 *78-3081 *78-3121 £*78-3140 

SIPARS = 172252 #15=1 *78-3082 *78-3122 £*78-3141 

SIPAR6 = 172254 #15-1 

SIPAR7 = 172256 #15-1200 

IPDRO = 172209 


#15~1200 43-2074 55-2353 55-2353 55-2353 55-2353 55-2353 61-2395 67-2432 
: +36 or $i96 67-2432 67-2432 70-2486 70-2520 74-2678 78-3069 81-3178 


SIPDR1 = 172202 #15-1 

simene = 172204 #15-1 , 

SIPORS = 1 #15=1 

SIPDR4 = 172210 #15-1200 *78-3077 *78-3123 

SIPDRS = 172212 #15-1 *78-3078  *78-3124 

SIPDR6 = 172214 #15-1200 

SIPDR7 = 17eel6 #15-1200 

SRO = 177572 #15-1200 46-2115 


5 15-1203 28-1689 *28-1689  *28-1689 31-1782 3=*31-1785 39-2006 

*47-2169 47-2171 %47-2177 *71-2588 71-2590} =*71-2592 = *71-2598 3=—s_ 72-2628 = * 72-2645 
72-2646 9 *72-2651 *78-3083 78-3153 = =*78-3155 

% #15-1200 15-1204 31-1783 

6 #15-1200 15-1205 31-1784 46-2125 46-2146 72-2647 78-3154 


SR1 1 
SR2 = 1775 





—- 


CKKTAB CREATED BY MACRO ON 23-APR-81 AT 13:35 PAGE 9 
SEQUENCE 145 

SYMBOL CROSS REFERENCE CREF vO1 

SYMBOL VALUE REFERENCE 

SR3. = _ 172516 #i5~1 15-1206 *28-1689 39-2015 

SSP_ =%000006 #15-1 38-1958 *38-1974 48-2253 

STACK = 001100 W15-1199 15-1212 = 15-1213 15-1214 

START —_-920000 15-1273 #33-1838 3349 

STKLMT = 177774 #511 

SUPSTK = 900700 w15-1213 38-1 

SwR 001140 W16-1276 33-1838 +9 «33-1838 33-1838 
85-3017 85-3217 85-3217 B6-3219 
99-3 99-334 

SWREG 000176 15-1273 33-1838 += 33-1839 89-3315 

SwO = 000001 #15-1199 

swOO = 000001 #15-1199 15-1199 

swO1 = 000002 #15-1199 15-1199 

swe = 900004 #15-1199 15-1199 

sw03 = 000010 #15-1199 15-1199 

SWS = 000020 W15-1199 15-1199 

Sw0S = 000040 #15-1199 15-1199 

sw06 = 000100 #15-1199 15-1199 

SwO7 = 000200 W15-1199 15-1199 

SwO8 = 000400 #15-1199 15-1199 

SwO9 = 001000 #15-1199 15-1199 

Sw = 000002 #15-1199 

Swi0 = 002000 #15-1199 

Sw11 = 004000 #15-1199 

wg = 010000 #15-1199 

Sw13 = 020000 #15-1199 

Sw14 = 040000 #15-1199 

Swi5 = 100000 #15-1199 

Swe = 00004 #15-1199 

Sw3 = 000010 #15-1199 

Sw = 000020 #15-1199 

Sw5 = 000040 #15-1199 

Sw6 = 000100 #15-1199 

Sw? = 000200 #15-1199 

SWB = 000400 #15-1199 

Sw? = 001000 #15-1199 

TBIT = 000020 #15-1210 23-1586 23-1591 24-1603 

TBITPS 01272 W16-1276 *23-1589 24-1603 24-1605 

TBITVE = 000014 #15-1199 33-1838 «= *33-1838 

TESTNO §=— 001254 16-1276 *B6-3219_ 102-3447 102-3448 
102-3454 102-3455 102-3456 102-3457 
102-3463 102-3464 10253465 102- 
102-3472 102-3473 102-3474 102-3475 

TIMERR 003232 29-1726 #30-1740 35-1842 39-2021 

TIMF 003234 W30-1741 *30-1758 = *33-184 

TIMTST — 003024 29-1691 29-1706 += 40-2040» 41-2051 

TKVEC = #15-1199 

TOF F 002172 #23-1586 71-2577 72-2617 = 80-3172 

TON 0022 W24-1603 71-2602 72-2642 80-3172 

TONUM = 001274 #16-1276 *29-1702 29-1707 *29-1723 

TPVEC = #15-1199 

TRAPPC = 001260 #16-1276 —*30-1748 += 30-1760 *31-1779 


C 12 


39-2033 
*48-2254 
33-1838 


«33-1838 
86-3219 


89-3315 


*24~-1606 


102-3449 


76-2827 
42-2062 
81-3178 
81-3178 
*39-2010 


31-1789 


*48-2255 
33-1841 


«33-1838 
86-3219 


* 33-1849 


102-3450 


43-2075 
82-3185 
82-3185 
39-2018 


*72~2649 


*48-2262 


33-1839 
86-3219 


102-3451 


102-3460 
102-3469 


83-3212 
44-2084 
83-3198 
83-3214 
39-2032 


72-2657 


102-3452 
102-3461 
102-3470 


45-2095 


102-3451 


«78-3146 


102-3453 
102-3462 
102-3471 


78-3162 


a - ~ 


cam ea ae aca att tC EL LLL LL LE LLL LLL A LL a mm me 


D 12 
CKKTAB CREATED BY MACRO ON 23-APR-81 AT 13:35 PAGE 10 
a . 


SYMBOL CROSS REFERENCE 01 
SYMBOL VALUE REFERENCES 
102-3447 102-3448 
TRAPPS 001262 io +e By eS 30-1759 +*31-1780 31-1788 *72-2650 72-2656 *78-3147 78-3161 
TRAPVE = 000034 #15-1199 +*33-1838  +*35-1838 
TRIVEC = 000014 #15-1199 
020564 #35~1 
TST10 021422 “ 
TST11 021440 #43~2072 
TST1 021456 A44- 
TST1 021474 #45~- 
TST14 021512 446-2114 
TST15 021654 447-2167 
TST16 021714 448-2191 
TST17 022320 449-2286 
0 2 #36-1 
TST20 022442 #51-2332 
TST21 Oseeee 51-2335 #52-2337 
TST22 023036 52-2 #53-2342 
TST23 023234 53-2343 54-2347 
TST24 023432 54-2348  #55-235 
TST25 55-2355 #56-2357 
ST 024026 56-2358 = 
TST27 024140 57-2375 #58-2379 
TST3 ocores #37-1913 
TS’ Ose¢ 2 58-2 #59-2384 
TST31 024364 59-2385 #60-23589 
TST32 024502 60-2590 61-2394 
TST35 024620 61-2395 62-23 
024736 62-2400 #63-2411 
TST35 025 #64-2416 
025146 #65-2421 
TST37 025252 #66-2 
021050 #38-1953 
TST40 025356 #67-2431 
TST41 25462 #68~-24 
TST42 025566 #69~2451 
TST43 025662 #70-2478 
TST44 026210 #71-2576 
TST45 026344 #72-2616 
TST46 026602 72-2645 3 =#74-2674 
TST47 027276 75-2744 75-2746 75-2752 #76-2768 
TST5 021214 #39-2002 
TSTSO 030136 76-2867  #77-2908 
TST51 atike 77-3004 #78-3052 
TSTS 031 78-3144 #80-3171 
TST5 032030 #81-3176 
ST 236 #82-3183 
TST55 032444 483-3197 
TST6 021366 39-2022 #40-2039 
TST? 021404 #41-2050 
06 88-3271 #98-3347 


: 


1044 
104405 84-3215 84-3215 88-3265 90-3326  #98-5547 


CKKTAB 


SYMBOL CROSS REFERENCE 
SYMBOL VALUE 


TYPE 


CREATED BY MACRO ON 23-APR-81 AT ai 


104401 


76 
102-3459 


88-3259 


53-2343 


56-2358 
32-1811 
65-2422 


82-3185 


7 
82-3185 


*78-3075 
«78-3076 


«31-1784 
102-3460 


PAGE 11 
QUENCE 147 
CREF v0O1 
84-3215 84-3215 
oS 3S 
89-3315 89-3315 
89-3315 89-3315 
#98-3347 99-3349 
89-3315 90-3323 
53-2343 
56-2358 62-2400 
44-2085 53-2345 
65-2422 65-2422 
*78-3109 *78-3127 
*78-3110 *78-3128 
56-2358 56-2358 
68-2437 68-2437 
*78-3111 *78-3125 
*78-3112 *78-3126 
* 38-1976 48-2266 
-1822 *78-3094 
102-3458 
*31-1781 *72-2648 
*72=2646 *78-3155 
02-344 
#46-2125 46-2127 
102-3463 


E 12 


53-2343 
70-2493 


«78-3138 
«78-3139 


56-2558 
70-2492 


* 78-3134 
«78-3135 


*48-2267 
78-3102 


102-3447 
102-3448 


*46-2146 


53-2343 
70-2553 


56-2358 
70-2542 


*48-2268 


«78-3151 


102-3448 
102-3460 


46-2147 


53-2343 
78-3058 


56-2358 
74-2682 


*48-2275 


102-3458 


*72-2647 


53-2343 


62-2400 
78-3068 


102-3460 


* 78-3154 


65-2422 


68-2437 
82-3185 


102-3448 


————— ee ———— - 


—— + ee ee ee - ee 


eee ee ee eee 


F 12 





CKK TAB CREATED BY MACRO ON 23-APR-81 AT 13:35 PAGE 12 
SEQUENCE 148 
SYMBOL CROSS REFERENCE CREF v01 
SYMBOL VALUE REF ERENCES 
wBIT = 000100 MS-1211 80-3172 80-3172 80-3172 81-3178 81-3178 81-3178 82-3185 82-3185 
1 15-1275  #15-1275 
SASTAT = texees 92-3335 92-3335 
SATYC —-035760 92-3335  #92-3335 
SATY1 035734 492-3335 
SATY3 = 035742 91-3333 #92-3335 
SATY4 035752 86-3219  #92-3335 
$AUTOB 11 #16-1276 -#33-1839 «= 89-3315. 89-3315 = 89-3315 
$8 001122 #16-1276 
SBDDAT 001126 #16-1276 
$BELL 001214 #16-1276 86-321 87-3219 87-3219 
$BIN 036254 #93-3337 *93-3337 93-3337 0 #93-3337 
SCHARC 035730 #91-3333 «91-3333 «91-3333 = *91-3333  —-#91-3333 
SCKSWR 034264 #89-3315 98-3347 98-334 
$CLR.T 032732 84-3215  #B4-3215 
$CMTAG 11 #16-1276 33-18 33-1838 33-1838 33-1838 33-1838 33-1838 
$cM1s= #16-1276 «16-1276 «= «16-1276 «= #16-1276 «= -16-1276 «= 16-1276 «16-1276 ~=—s-:*16-1276 =: 16-1276 
WG-1276 16-1276 16-1276 #NG~1276 16-1276 16-1276 WIG-1276 16-1276 16-1276 
$CM2 - =_- 000014 #16-1276 «16-1276 «= «16-1276 = #16-1276 += «16-1276 ~=—s «16-1276 = #16-1276 = «16-1276 ~—s-_: 16-1276 
W16-1276 16-1276 16-1276 16-1276 16-1276 16-1276 MIG~1276 16-1276 16-1276 
$CM3 = =_- 000006 #16-1276 16-1276 16-1276 : 
$CM4 = 000006 #16-1276 16-1276 «= «16-1276 #16-1276 += «16-1276 ~=—s:'16-1276 «416-1276 «= «16-1276 +=: 16-1276 
W16-1276 16-1276 16-1276 #NG~1276 16-1276 16-1276 HIG~1276— 16-1276 16-1276 
SCNTLC 001350 #16-1276 89-3315 89-3315 89-3315 89-3315 
3315 #89-3315 
89-3315 89-3315  #89-3315 
= #28-1689 
#16-1276 
#16-1276 84-321 86-3219 87-3219 87-3219 = 88-3221 —«s- 88-3245 88-3250 —- 88-3305 
89-3315 89-3315 89-3315 89-3315 91-3333 91-3333 91-3333 
28-1689  #28-1 
95-3341 95-3341 495-3341 ~ 
88-3277 88-3291 497-3345 
#16-1276 
84-3215 84-3215 84-3215 #B4-3215 
95-3341 #95-3341 
15-1274 33-1839 84-3215 86-3219 
-1838  #84-3215 
#84-3215 
#16-1276 «33-1839 «75-2743 «= 86-3219 «91-3333 «= -92-3335 =: 92-3335 
#16-1276 33-1838 «= 91-3333. «91-3333 «92-3335 
#84-321 3328 
#33-1838  #84-3215 84-3215 
#16-1276 27-1659 «= 28-1683 «= 85-3217 *85-3217 = 85-3217 *85-3217, 85-3217 =: 85-3217 
*86-321 87-3219 87-3219 
#16-1276 *33-1838 = «85-3217 85-3217. 85-3217 
33-1838  #86-3219 | 
#16-1276 *86-3219 86-3219 86-3219 87-3219 = 87-3219 = 88-3227. BB-3313 =: 102-5447 





ee eee 


anes a 





CKKTAB CREATED BY MACRO ON 23-APR-81 AT 13:35 PAGE 13 
SEQUENCE 149 
SYMBOL CROSS REFERENCE CREF v01 
SYMBOL VALUE REFERENCES 
102-3448 102-3449 102-3450 102-3451 
ae rE 102-3458 102-3459 102-3460 
102-3471 102-3472 102-3473 102-3474 
SERRTB 001372 #17-1276 88-3240 
SERTTL 001112 #16-1276 84-3215 *84-3215 *86-3219 
SESCAP 001212 16-1276 *33-1838 *85-35217 86-3219 
SE TABL 1244 #16-1276 
SE TEND 001254 15-1275 #16-1276 
SF ATAL 001226 #16-1276 *92-3335 
SFFLG 0 *92-3335 +*92-3535 92-3335 *92-3335 
SFILLC 0011 #16-1276 91-3333 91-3333 91-3335 
SFILLS 001155 #16-1276 91-3533 91-3333 
0011 #16-1276 
SGDDAT 001124 #16-1276 
$GET42 032714 ~3215 
SGTSWR 0343 #89-3315 98-3347 98-3347 
$SHD = 15-1197 15-1197 15-1197 
SHIBTS #15-1275 
SICNT 11 #16-1276 
SILLUP 037410 3 99-334 #99-3349 
SINTAG 113 #16-1276 89-3315 89-3315 89-3315 
ITEMB 001114 #16-1276 *86-321 86-3219 86-3219 
SK TNE X 002670 -168 #28-1689 
SK TOUT 002 28-168 #28-1689 
$KT11 002512 #28-1689 *28-1689 *28-1689  +*33-18535 
SLF 001222 #16-1276 87-3219 87-3219 89-3315 
SLFLG 036177 *92-3335 #92-3335 
$LOOP 033010 84-321 #84~-3215 
SLPADR 001106 #16-1276 335-1838 76-2889 77-3026 
SLPERR 001110 #16-1276 *29-16 *29-1706 *33-1838 
*37-1928 +*37-1941 *38-1970 *39-2 
48-2202 48-2207 *48-2217 +*48-2227 
#49=2305 49-2309 49-2314 51-2555 
*53-2343 =*53-2343 39 53-234 *54-2 
*56-2358  +%56-23558 *56-2358  *57-2375 
23 23 *61-23595 +*61-2595 
*64-2417 64-2417 64-241 noo 5766 
*67-2432 %67-2432 +%67-2432 24 
*71-2587 *71-260 *72-2618 *72-2641 
*76-2853 *76-2 *77-2921 %77-2933 
*78-3143 *80-3172 *80-3172 *81-3178 
85-3217 *85-3217 85-3217 85-3217 
SLSTAD 30 "28-1689 28-1689 
$_STBK 003022 *28-1689 #28-1689 74-2715 76-2773 
77-2924 ~2949 77- 77-2994 
SMAIL 001224 15-1275 15-1275 #16-1276 33-1838 
000206 #15-1275 
SMFLG 03617 *92-3335 92-333 *92-3335 #92-3355 
SPINE 035247 89-3315  #89-3315 
SMS 001240 #16-1276 *92-333 92-3335 
SMSGLG 001242 #16-1276 *92-3335 
SMSGTY 001224 #16-1276 92-3335 +*92-3335 92-3355 


G 12 


102-3452 
102-3461 
102-3475 


87-3219 
86-3219 


#92-3335 


89-3315 
*86-3219 


89-3315 


*85-3217 


2966 
*81-3178 
86-3219 


76-2785 
77-3011 


33-1839 


*92-3335 


ae ee iO + 


102-3453 
102-3462 
102-3476 


87-3219 
87-3219 


86-3219 


89-3315 


*85-3217 
2 


2981 
*82-3185 


76-2854 


102-3474 


85-3217 


87-3219 


87-3219 


91-3333 


85-3217 
889 


2989 
*82-3185 


76-2858 
86-3219 


\ 


102-3455 
102-3467 
102-3478 


87-3219 


91-3333 


a AU 


2 
*83-3200 


76-2874 
91-3353 


102 
102-3470 


88-3224 


85-3217 
*37-1914 


*83-3215 


77-2914 


ee ee 


ee — 


eee ee -eea eee ,l —e  _ 


eee et 
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CKKTAB CREATED BY MACRO ON 23-APR-81 AT 13:35 PAGE 14 
SEQUENCE 150 
SYMBOL CROSS REFERENCE CREF 01 
SYMBOL VAL REFERENCES 
SMSWR 035236 89-3315  #89-3515 
SMXCNT 001344 #16~-1276 
SNULL 1154 #16-1276 91-3333 91-3333 eS 
SNWTST = 1 #34~-1866 34-1866  #35-1866 35-1866 435-1888 35-188 #36-1 36-1 #36-1913 
36-191 #37-1913 37-191 #37-1953 37-1953 #38-195 38-1953 38-2002 38-2002 
#39~2002 39-2002 #39-2039 39-2039 #40-2039 40-2039 #40-2050 40-2050 #41-2050 
41-2050 , #41-2061 41-206 #42-2061 -2061 #42-2072 42-2072 #43-2072 53-2072 
#43-2083 43-2083  #44-2083 44-2085 #44-2094 44-2094 45-2094 45-2094 #45-2114 
45-2114  #46-2114 46-2114  #46-2167 -2167 #47-2167 47-2167 #47-2191 47-2191 
#48-2191 48-2191 #48-2286 -2286 9-2286 9-22 #50-2332 50-2332 #51-2332 
51-2335 #51-2337 51-2337 #52-2337 52-2337 #52-2342 =2342 #53-2342 3-234 
#53-2347 53-234 #54-2347 -2347 #54-2352 54-2352 #55-2352 55-2352 #55-2357 
55-2357 #56-2357 56-2357 #56-2374 56-2374 #57-2374 7-2374 #57-2379 7-23 
#58-2379 ~2379 #58-2384 ~2384 #59-2384 9-23 #59-2389 59-2 2 
60-2389 23 60-2394 61-2394 61-2594 #61-2399 61-2399 #62-23 62-23 
#62-2411 62-2411 63-2411 63-2411 #65-2416 63-2416  #64-2416 64-2416 64-2421 
64-2421 #65-2421 65-2421 #65-2426 65-2426 66-2426 66-2426 #66-2431 66-2431 
#67-2431 67-2431 67-2436 -2436 -24 68-2436  #68-245 68-245 #69~2451 
69-2451° #69-2478 69-247 #70-2478 70-2478 #70-2576 70-2576 #71-2576 71-2576 
#71-2616 71-2616 #72-2616 72-2616 #73-2574 73-2674 #74-2674 74-267 #75-2768 
75-2768 #76-2768 76-27 #76-2908 - #77-2908 -2908 #77-3052 77-3052 
#78-3052 78-3052 3 #79-3171 3171 #80-3171 80-3171 #80-3176 80-3176 #81-3176 
81-3176 #81-3183 81-3185 #82-3183 82-3185 482-3197 82-3197 #83-3197 83-3197 
SOCNT 0365 *94-3339 *94-3339 #94-33359 
SOCTVL 037126 97-3345 #97-3345 
036502 #94-3339 94-3339 94-333 *94-333 94-3339  #94-3339 
SOVER 033230 5-321 85-3217 85-3217 #85-3217 
SPASS 001232 #16-1276 =©*33-1838 *84-3215 +*84-3215 84-3215 84-3215 84-3215 90-3318 
SPASTM 212 #15=-1275 
SPWRAD 037372 #99~-3349 
SPWRON 037232 33-1838 #99-3349 99-3349 
SPWRMG 37366 499-3349 
SPWRUP 037304 99-334 #99-3349 
SQUES 001220 #16-1276 87-3219 87-3219 89-3315 89-3315 89-3315 89-3315 91-3335 91-3333 
SROCHR 034606 #89-3315 98-3347 98-3347 
SRDDEC = *##eex 98-3347 <4 
SROL IN 034736 #89-3315 98-3347 98-3547 
SRDOCT = *eeeee 98-3347 
$RDSZ = 000010 #89-3315 89-3315 
SRE 001160 #16-1276 
$REGO 001162 #16-1276 86-3219 102-3449 ya me 102-3452 102-3453 102-3456 102-3457 102-3464 
102-3467 102-3468 102-3469 102-3471 102-3476 
SREG1 001164 #16-1276_ *86-3219 02-3449 102-3452 102-3452 102-3453 102-3454 102-3455 102-3456 
102-3457 102-3459 102-3462 102-3467 102-346 102-3469 102-3473 
$REG2 001166 #16-1276 *86-3219 02-3453 102-3453 102-3455 102-3456 102-3457 102-3462 102-5464 
102-3467 102-3469 102-3471 
SREGS 001170 #16-1276 *86-3219 02-3454 102-3471 102-3475 102-3476 
SRE G4 001172 #16-1276 *86-3219. 102-3458 102-3460 102-3463 102-3469 
$SREGS 001174 #16-1276 *86-3219 102-3458 102-3475 102-3476 102-3477 
SRE SRE 036766 ~S 98-3347 
SRTNAD 033012 #84-3215 
SRTRN 03 33-1838 *33-1838 *35-1838 84-3215 484-5215 


an 


MMM Cll lll Cl LL: LL LL LL LL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL BLL AL LLL LL EI 


CKK TAB CREATED BY MACRO ON 235-APR-81 AT Weg PAGE 15 


QUENCE 151 
SYMBOL CROSS REFERENCE CREF v01 
SYMBOL VALUE ty he 
SRA = eeeene 98-3347 
SSAVRE 036730 #96~3343 98-3347 98-3347 
SSAVR6 037414 #99-3349 99-3349 99-3349 *99-3349 #99-3349 
SSCOPE 033020 33-18 #85-3217 
SSETUP = 000137 #15-1272 15-1272 #15-1272 15-1272 #15-1272 15-1272 #15-1272 15-1272 #15-1272 
15-1272 #15-1272 15-1272 #15-1272 33-1838 33-1838 33-1838 33-1838 33-1838 
33-1838 33-1838 33-1838 33-1838 33-1838 33-1838 33-1838 33-1839 33-1839 - 
33-1839 84-3215 84-3215 85-3217 86-3219 86-3219 86-3219 86-3219 89-3315 
89-3315 99-3349 
$b 002454 #28-1 33-1854 
SSIZEX 002732 28-1689 #£28-1689 
= 177777 #15-1272 #15-1272 15-1272 #15-1272 #15-1272 15-1272 #15-1272 #15-1272 15-1272 
#15-1272 #15-1272 15-1272 #15-1272 #15-1272 15-1272 #15-1272 #15-1272 15-1272 
SSVLAD 033174 85-3217 85-3217 #85-3217 
$svPC = 000204 #15-1274 15-1274 
$SwWR = 173400 #15-1193 15-1197 15-1198 15-1198 15-1198 15-1198 15-1198 15-1198 15-1198 
15-1198 16-1276 16-1276 16-1276 33-1838 33-1838 3-1 33-1838 33-1838 
~ - 37-1913 38-1953 9-2002 40-2039 41-2050 42-206 43-2072 
44-2083 - 46-2114 47-2167 48-2191 9-2286 51-2332 §2-2337 53-2342 
54-234 55-2352 56-2357 57-2374 -2379 59-2384 61-2394 62- 
63-2411 -241 65-2421 66-2426 67-2431 68-24 69-2451 70-2478 71-2576 
72-2616 74-2674 - 77- 78-3052 80-3171 81-3176 82-3183 83-3197 
-321 84-321 84-3215 84-321 84-3215 85-3217 85-3217 85-3217 85-3217 
85-3217 85-3217 85-3217 85-3217 85-3217 85-3217 85-3217 85-3217 85-3217 
85-3217 85-3217 85-3217 85-3217 85-3217 85-3217 85-3217 86-3219 86-5219 
oo 86.5 86-3219 86-3219 86-3219 86-3219 86-3219 86-3219 87-3219 87-3219 
SSWREG 001246 #16-1276 33-1838 
SSWRMK = 000000 15-1198 15-1198 15-1198 15-1198 15-1198 15-1198 15-1198 15-1198 15-1198 
$2 3545 85-3217 85-3217 85-3217 85-3217 85-3217 85-3217 85-3217 85-3217 
$STBIT 001346 #16-1276 *33-1838  +*84-3215 84-3215 84-3215 *99-3349 
STESTN 001230 . 416-1276 = 85-3217 88-3313 ; 
$TKB 001146 at 14 ee 89-3315 89-3315 89-3315 89-3315 89-3315 91-3333 91-3333 
STKS 001144 #16-1276 89-3315 89-3315 89-3315 89-3315 89-3315 89-3315 89-3315 89-3315 
91-3333 91-3333 91-3333 91-3333 
$STMPO 001176 #16-1276 *48-2253 48-2262 %*48-2266 48-2275 *51-2333 = 51-2333) = *52-2338 830 52-2338 
#5 3=-2343 39 #§53-2343 0 = #54-2348 3954-2348 39. 5 -235535 3=—s.- * 55-2555 3=s._ 56-2558 8396 56-2358 3=s._ * 74-2701 
Uy md «76-2787 76-2805 *77-2927 77-2945 *77-2968 77-2971 *78-3086 102-3458 
STMP1 001200 #16-1276 *76-2884 #*/77-3021 102-3470 102-3472 
STMP2 001202 #16-1276 *76-2792 *77-2932 102-3470 
STMP3 001204 #16-1276 | 
STMP4 001206 #16-1276 29-1691 29-1695 29-1711 *29-1714 *88-3288 88-3290 
STMPS 001210 #16-1276 =. *51-2333 0) 52-2338 =. 533-2343 39 #542348 839 555-2553 3=. * 556-2558 - =*57-2375 8 *58-2580 
*59-2385 60-2390 *61-2395 62-2400 *88-5289 +*90-3318  *90-3319 90-3325 
STN = 000056 #15-1194 15-1197 34-1866 35-1866 #35~-1866 35-1888 36-1888  #36-1888 36-1915 


37-1913 37-1913 37-1953 38-1953 #38-1953 38-2002 39-2002 #39-2002 39-2022 
39-2039 40-2039 art 5075 40-2050 41-2050 #41-2050 41-2061 42-2061 #42-2061 


3 2094 45-2094 #45-2094 
45-2114 46-2114 #46-2114 46-2167 47-2167 #47-2167 47-2191 48-2191 #48-2191 





‘ J 12 
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QUENCE 152 
SYMBOL CROSS REFERENCE CREF v0O1 
SYMBOL VALUE REFERENCES 
ik $86 23-5 86 #49-2286 50-2332 51-2332 Weise 51-2333 2)-$e75 52-2337 


2-2338 52-2342 342 8=#53-2342 53-234 53-2347 54 $3¢ #54-2347 

54-2348 54-2352" 55-2352  #55-235 55-2353 55-2357 56-2357 #56- 33) 56-2358 
56-2374 57-2374 #57-2374 57-237 57-2379 58-2379 #58-23579 58-2 58-2 

385 9-2389 60-2389  #60-2389 61-2394 

#61~2394 61-2395 61-2399 62-2399 #62-23 62-2400 62-2411 63-2411 #63-2411 
63-2416 ~241 #64~-241 64-2421 65-2421 #65-2421 65-2426 #66~-2 

431 67-2431 #67-2431 67-2436 68-24 - 68- 69-2451 #69-2451 

OSes 70-2478 #70-2478 70-2576 aig 214, #712576 71-2616 72-2616 #72-2616 

#76-2768 76-2867 = 


8 2 2 
78-3144 79-3171 a tal ogee 80-3176 81-3176 #81-3176 81-3183 82-3183 


PB 001152 #16-1276 = 91-3333 «91-3333 =: 91-3333 
SIPFLG 001157 #16-1276 =—-91-3333. «91-3333 91-3333 
TPS 001150 #16-1276 —-91-3333. «91-3333 -91-3333. 
STRAP ss 037144 33-1838  #98-3347 
STRAP2 0377 #98-3347 98-3347 
$TRP = _ 00001 #9B-3347 98-3347 98-3347 98-3347 98-3347 #98-3347 98-3347 98-3347 98-3347 
98-3347 #98-3347 98-3347 98-3347 98-3347 98-3347 #9B-3347 98-3347 98-3347 
98-3347 98-3347 98-3347 98-3347 98-3347 98-3347 98-3347 #9B-3347 98-3347 
98-3347 98-3347 98-3347 98-3347 98-3347 98-3347 98-3347 98-3347 #98-3347 
98-3347 98-3347 98-3347 98-3347 #9B-3347 98-3347 98-3347 98-3347 98-3347 
#98-3347 98-3347 98-3347 98-3347 98-3347 #9B-3347 98-3347 98-3347 98-3347 
98-3347 #98-3347 98-3347 98-3347 98-3347 98-3347 #98-3347 
STRPAD 037200 98-3347  #98-3347 
$TSTM 000210 #15-1275 < 
STSTNM = 001102 #16-1276 © *84-3215. 85-3217 85-3217 *85-3217 85-3217 = 85-3217 85-3217 = 85-3217 
86-3219 86-3219 87-3219» 87-3219» -:90- 3321 
STTYIN 035214 89-3315 89-3315 - 89-3315 89-3315 89-3315 #89-3315 
STYPBN 036202 #93-3337 98-3347 98-3347 
$TYPDS 036504 #95-3341 98-3347 98-3347 
$TYPE 035370 #91-3333 © 92-3335 «98-3347 =: 98-3347 
STYPEC 035602 89-3315 91-3333 91-3333 91-3333 #91-3333 
STYPEX 035732 91-3333 91-3333. «91-3333 |: #91-3333 
$TYPOC 30 #94-3339 98-3347 98-3347 
STYPON 036316 94-3339  #94-3339 98-334 
$TYPOS . 036256 494-3339 98-3347 
SUNIT 001236 #16-1276 
SUNITM 000214 #15-1275 ve 
001250 #16-1276 75-2745 
SXOFF = 000023 91-3333 91-3333 
$XON = 000021 89-3315 91-3333. «91-3333 «91-3333 
$XTSTR 033032 #85-3217 
$$GET4 = 000001 484-3215 84-3215 84-3215 
SOFILL 036501 #94-3339 94-3339 94-3339 © #94-3339 
eerees 85-3217 86-3219 


ateane 92-3335 92-3335 
000204 #15-1275 ° T5-1275 


" 

—~ 

> 
nun 
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NCE 153 
MACRO CROSS REFERENCE CREF v01 
MACRO NAME REFERENCES 
BYTADR #15=1162 #63-2412 64-2417 65-2422 #66-2427 #&67-2432 oer 437 
BYTEMG ror eee d #63-2411 464-2416 65-2421 #66-2426 67-2431 -24 
COMMEN #15-1199 
COUNT1 #15-1074 57-2375 58-2380 59-2385 60-2390 61-2395 62-2400 
DUAL #15-1033 $1-2333 52-2338 §3-2343 54-2348 55-2353 56-2358 
#50-2319 51-2332 52-2337 53-2342 454-2347 #55-2352 #56-2357 
NDCOM #15-1199 © 
ESCAPE #15-1199 
GETPRI #15-1199 84-3215 
TSWR #15-1199 #33-1839 33-1839 
MSG1 #34-1860 - 
MSG10 #43-2080 44-2083 
MSG11 44-2091 - 
ere #45-2102 46-2114 
MSG1 #46-2158~- 47-2167 
MSG14 #47-2179 2 
#48-2279 
MSG15 #50-23 #51-2332 
MSG15A #51-23 #52-2337 
1 #52-2339 #53-2342 
MSG15C #53-2344 54-234 
MSG15D 454-2349 #55-2352 
MSG15E #55-2354 56-235 
MSG16 2371 57-2374 
MSG16A 457-2376 #58-2379 
MSG16B8 #58-2381 #59- 
16C #59-2 
MSG16D #60-2391 #61-2394 
MSG16E #61-2396 -2399 
#62-24 -2411 
MSG17A 463-2413 #64-241 
MSG17B 464-2418 65-2421 
MSG17C #65-2423 66-2426 
17D #66-2 $8 7-2431 
MSG17E pam em 
MSG20 #68-2 69-2451 
MSG21A 469-2469 #70-2478 
MSG21B #70-2 71-2576 
MSG21C #71-2603 #72-2616 


3 
#38-1995 #39-2002 -’ - 
#39-2036 40-2039 


So 
; 






CKKTAB 


MACRO CROSS REFERENCE 
MACRO NAME 


C REFERENCES 
G7 #40~2047 
MSG7A 1% Roe 





41-2050 
o$-Soes 
#43-2072 


#15~-1199 
ae 


5 
92-3335 


#86-3219 


98-3347 
98-3347 


#40-2039 


84-3215 
33-1839 


80-3172 
#16-1276 


CREATED BY MACRO ON 23-APR-81 AT 15:35 
SF QUE 


92-3335 


98-3347 
98-3347 


51-2333 
61-2395 


15-1275 


96-3343 
#33-1838 
#41-2050 


84-3215 


84-3215 


#81-3176 
81-3178 
#16-1276 
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NCE 154 
CRE v01 
#35-1888  #36-1913 
#45-2114 46-2167 
#56-2374 #57-2379 
#66-2431 7-2436 
#79-3171 #80-3176 
59-2384 60-2389 
95-3341 96-3343 
92-3335 95-3341 
98-3347 98-3347 
52-2338 53-2343 
62-2400 72-2645 
15-1275 15-1275 
25-1611 25-1620 
30-1739 31-1763 
35-1866 -1888 
39-2002 40-2039 
44-2083 = 

49-2286 50-2316 
54-2347 55-2352 
9-2 60-2389 
64-241 65-2421 
69-2451 70-2478 
74-2674 76-2768 
317 81-3176 
89-3315 89-3315 
97-3345 98-3347 
442-2061 #43-2072 

#82-3183 

82-3185 
#16-1276 #16-1276 


#37-1953 


99-3349 
96-3343 
98-3347 
54-2348 


75-2744 


16-1276 


#44-2083 


#16-1276 


#38-2002 


98-3347 


55-2353 
75-2746 


16-1276 
3 


#45-2094 


#16-1276 


#39-2039 
#50-2332 
#60-2394 
#70-2576 
99-3349 
98-3347 
56-2358 


75-2752 


16-1276 
Leah 95 


82-3183 
91-3333 


#40-2050 
#51-2337 
#61-2399 
471-2616 


98-3347 


57-2375 
76-2867 


23-1576 
27-1651 


92-3335 





#62-2411 
#73-2674 


98-3347 


83-3197 
93-3337 


ae ee 


M12 
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SEQUENCE 155 
oe CROSS athe or —_ CREF vO01 
oat o- 1608 16-1276 16-1276 16-1276 16-1276 16-1276 16-1276 
SSNEWT #15-1199 #34-1866 #35-1888 #36-1913 #37-1953 ore S808 ita tt #40-2050 prt sd 
He #44- pret, #46-2167 #47-2191 #48- $36 #50-23352 #51-2337 #52-2342 
#5 54-2352 =#55-2357 374 3 =#57-23 -23 #59~- #60-2394 #61-2399 woe Sey. 
-2421 65-2426 $73! 467-2436 45 469-2478 #70-2576 #71-2616 # 74 
#76- #77-3052 439 #79-3171 8 #80-3176 481-3183 #82-319 
SSSET #98- 98-3347 3347 3347 98-3347 98-3347 98-3347 98-3347 98-3347 98-3347 
i 7 98-3347 
™ ; 1 #33-1838 
SSSETU #33~1 #33-1838 
SSSKIP #15-1199 39-2022 51-2333 52-2338 53-2343 54-2348 55-2353 56-2358 57-2375 58-2380 
a. Gat 60-2390 61-2395 62-2400 72-2643 75-2744 75-2746 75-2752 76-2867 77-3004 
-EQUAT #15~-1188 15-11 
-EQUIV #15-930 #15-1187 #15-1199 #15-1199 #15-1199 415-1199 #15-1199 #15-1199 #15-1199 #15-1199 
#15-1199 #15-1199 #15-1199 415-1199 #15-1199 #15-1199 #15-1199 #15-1199 #15-1199 #15-1199 
#15-1199 #15-1199 #15-1199 #15-1199 #15-1199 #15-1203 15-1204 #15-1205 #15-1206 #15-1207 
#15-1208 #15-1 #15-1210 #15-1211 
HE #15-1188 15-1197 
-KT11 #15~-1188 15-1200 
» SETUP #15-1188 15-1272 
- SIZME #15-945 28-1689 
- SWRHI #15~-1188 15-1198 
- SWRLO #15-1198 
-SACTI #15-1189 #15-1274 
. SAPTB 16-1276 16-1276 
- SAPTH #15-1191 #15-1275 
- SAPTY #15-1191 #92-335355 
-SCATC #15-1189 15-1273 
-SCMTA #15-1189 15-1276 
- $0820 #15-1192 97-3345 
. SEOP #15-1189 84-321 
- SERRO #15-751 #86-3219 
- SPOWE #15-1190 99-3349 
- SREAD #15-1191 89-3315 
- SSAVE #15-1192 #96-3343 
- $SCOP #15-500 85-3217 
. STRAP #15-1190 98-3 
-STYPB #15-1191 93-3337 
-STYPD #15-1190 95-3341 
- STYPE #15-1189 91-3333 
STYPO #15-1190  #94-333 


